i suppose it would depend on how much you want something to be in $ARGV[0]. I mean if you absolutely require it to be there (and to not be on the list of perl's false things) this is perfectly reasonable (although the error message is not)
Plus, it's poetry, you can do what you want, and call it art!
@_=qw; ask f00li5h to appear and remain for a moment of pretend better than a lifetime;;s;;@_[map hex,split'',B204316D8C2A4516DE];;y/05/os/&print;
| [reply] [d/l] [select] |
Erm, if $ARGV[0] is a false thingy, then the statement
resolves to
open DNA, die "Die!!";
which is nonsensical, so it's not reasonable (don't ask e.g. Monty Python
whether they support my claim ;-)
--shmem
_($_=" "x(1<<5)."?\n".q·/)Oo. G°\ /
/\_¯/(q /
---------------------------- \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}
| [reply] [d/l] [select] |
| [reply] [d/l] |