#!/usr/bin/perl -p # inc -- increment numbers in lines s/\d+/$n=$& if!$n;$n+$i++/e