{
    local @ARGV = $file_name;
    local $^I = ''; # edit file in place (UPDATED)
    local $/; # sluurp
    local $_ = <>;
    while ( chomp ) { }
    print;
    }