>perl -e "print qq{abc\n}; warn qq{def\n};" 2>&1 | perl -pe "s/^/$. /"
1 def
2 abc