$contents=slurp('foobar'); sub slurp {local$/=<>if local@ARGV=@_} #### {local$/;$contents=<>if local@ARGV='foobar'}; #### $contents=join'',<_>if open _,'foobar'; #### $contents=`cat foobar`