my $contents = do { local (@ARGV, $/) = $filename; <> };

##</code><code>##

# Slurp file
my $contents = do { local (@ARGV, $/) = $filename; <> };