use strict;
use warnings;
use File::Map qw/ map_file /;
map_file my $s, 'x', '<';
$s =~ /x/;