open TXTF,"<$txtf" or die "Can't open $txtf : $!\n";
my $regexp = Regexp::List->new(modifiers => 'i',quotemeta => 0)->list2re(@matches);

LOOP: while ($line = <CMDTXTF>) {
   @fld = split /\|/,$line;
   if ($fld[5] =~ /\/\*/) { 
      next LOOP until $fld[5] =~ / \*\//;
   }
      print "$fld[0] $fld[2] sequence=$fld[4] $fld[5]" if $line =~ /$regexp/;
      }
close TXTF;