while ($line .= <Stream>) 
{ 
  exit if ( $line =~ m/b\n*l\n*a\n*h/m); 
}