renum.pl infile > outfile

  -or-

perl -i.bak renum.pl file