if(!$line =~ m"|"g){die " Not Compatible\n";}