$str="";
 while(<>){
   $str.=$_;
   last if (m/a\d+b/g);
 }