$str = `cat $file`;
$str = do { local( @ARGV, $/ ) = $file ; <> };