Select Code to Download

C:\@Work\Perl>perl -wMstrict -e "sub S { if (! $_[0]) {} }
print qq(<@{[ S($_) ]}> \n) for @ARGV"   ""  "hiya"
...
print qq(<@{[ S($_) ]}> \n) for @ARGV"   ""  "hiya"
<>
<hiya>