You can do all of that in one line...

my $var = do { local $/ ; <> };
[download]