# Previous declaration of "$filename" is assumed. my $data = do{local(@ARGV,$/) = $filename;<>}