qw|as|df|gh|kj|dddd
ll|kk|pp|oo|ii|dfghj
eee|ttt|td|fff|ddd|/* gggg
xxx|vvv|c|g|nnn|fff
aaaaaa|hh|qq|ww|iii|zzzz */
ppp|j|x|f|o|zkllk
aaa|g|dde|as|lkjh|mnbv
.
.
and so on

##</code><code>##

 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;