$ perl -lE " say for @ARGV " -- a s d f  "asdf 'print 2**255;' asdf"  'print 2**255;'
a
s
d
f
asdf 'print 2**255;' asdf
'print
2**255;'