my $filename = '...';
...
my $whole_nine_yards = do {
    use autodie;
    open my $fh, '<', $filename;
    local $/;
    <$fh>; 
    };