my @match = eval { use Fcntl qw/:DEFAULT/; local *FH; sysopen FH, $file, O_RDONLY; flock FH, 8; my @map = map { chomp; qr/$_/ } ; return @map; } if (-e $file && -r _);