my $contents = do { local (@ARGV,$/) = ($filename); <> }; #### ------------ :Wq Not an editor command: Wq