in reply to !~ /\w/ challenge, anyone?

How about this?

perl -pe}{$\=$.file