Select Code to Download

qw|as|df|gh|kj|dddd
ll|kk|pp|oo|ii|dfghj
...
.
.
and so on

 open TXTF,"<$txtf" or die "Can't open $txtf : $!\n";
my $regexp = Regexp::List->new(modifiers => 'i',quotemeta => 0)->list2
+re(@matches);
...
      print "$fld[0] $fld[2] sequence=$fld[4] $fld[5]" if $line =~ /$r
+egexp/;
      }
close TXTF;