Select Code to Download

use 5.010;
use strict;
...
  say "File '$filename' does".( scalar @match ? "" : "n't" )." match";
}

$ time ./file_map.pl patternabc big_file
File 'big_file' doesn't match
...
user  0m0.263s
sys   0m0.118s