$var = do { open my $fh, '< test.pl'; join '', <$fh> };