echo "foo
bar" |perl -wE'while (<STDIN>) { print "$. $_" }'
1 foo
2 bar