perl -E'sub _{push@_,say@_;&_}_'

##</code><code>##

perl -E'{$_.=say;redo}'