my @contents = do { open(my $fh, "/my/text/file") or die; <$fh> };