my $str = slurp('file.txt');

sub slurp {
        open(F, shift);
        local $/ = undef;	# undef record seperator
        my $txt = <F>;
        close(F);
        return $txt;
}