Listing of testforms.plx

#!/usr/bin/perl
use warnings; use strict;

my $cut = 'cut -f4,6,7';
my $paste='perl -ne \'($n,$l,$w)=(/^(.*?)\t(.*?)\t(.*?)$/);$n=~tr/ /_/;$l=~tr/ /_/;print"$n\:_$l\t$w\n"\'';
#system "$cut <forms.lst|$paste";
system "$cut <$outdir/forms.lst |$paste| /usr/local/share/cdl/cgi-bin/concord -gswcfl* $asciify>$dl_flist";