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