in reply to Re^2: concatenation through substitution?
in thread concatenation through substitution?

Or for that matter: 
while (<>) { printf '%4d: %s', $., $_ }

[download]

In Section Seekers of Perl Wisdom