use strict;
use warnings;
while(<DATA>){
  if($_ =~ /M8BBABONP\wM\d+/){
      print "Match found\n";
  }
}
__DATA__
M8BBABONPGM100.dat
M8BBABONPYM101.dat