my $data = do { open my $fh, '<', $file or die $!; local $/; <$fh> };