in reply to perl -pie "???"

perl -i -pe '${_}x=$.>1' file

[download]

In Section Seekers of Perl Wisdom