while(<FH>){
   if($_ =~ C B A R){ # selected element
      do something
   }
   if($_ =~ Q U A D){ # selected element
      do something
   }

}