$ perl -e' m/.*(.|\n)/,print "<$1>" for "123","ab\
c\n"'
<3><
>$