$file = "project.txt"; 
open(FILE,"$file"); 
open(OUTPUT,">> project.out");

while(my $a=<FILE>) {
  if($a=~/\tCM+(\d*)/io) {
   print "$1\n";
   print OUTPUT $a;
  }
}
close FILE;
close OUTPUT;