sub foo {
    my $filename = shift;
    my $content = do {
        local $/;
        open my $fh, '<', $filename or die $!;
        return scalar(<$fh>);
    }
    $content = s/abc/def/g;
    return $content;
}