while( <CMDTXTF> ) {
  my @fld = split /\|/, $_;
  print "$fld[0] $fld[2] sequence=$fld[4] $fld[5]" 
    if /$regex/ and not (($fld[5] =~ m{ /\* }x)..($fld[5] =~ m{ \*/ }x));
}