while(<>){
  #examine one line
}

##</code><code>##

my $s=join '',<>;

##</code><code>##

  if($s=~/foo\s*(\d+)\s*bar/s){
...
  }