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

##</code><code>##

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