# slurp file into $buf
   if( $buf =~ /($searchnum)/ ){....}