#!/usr/local/bin/perl
use strict;

use Getopt::Long;
use sql_engine;
my $string = "XXX2EX_";
#my (@grepnam, @names);
while(<>) {
 chomp;
 if ($_ =~/SNP*/i) {
  
  #print $_, "\n";
  if ($_ =~s/BM*/$string/) {
  
   print $_, "\n";
   
  }
   
} 
  
}