while(<FH>){
   
   if($_ =~ C B A R){
      do something
      This bit is not the same for all elements and it is average 100 lines long
   }
}