perl -MO=Deparse,-p -e 'print "$_\n" for <<>>'

##</code><code>##

echo fubar | perl -e 'print "$_\n" for <<>>'