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

command-line arguments to perl (e.g. the -le) don't count

Blah. Your challenge is too easy. With that allowed, you can do anything, trivially.

$ perl -Mstrict='}); ()=<>; print $.; ({' -le '""' /etc/passwd 23

Abigail