#!/usr/bin/perl for(@ARGV) { my $filename = $_; rename($filename,$filename.".bak"); open(IN,"<$filename.bak"); open(OUT,">$filename"); $d = "0000"; while(<IN>) { s/printf\(\"\#\d+\:/printf\(\"\#$d\:/; s/printf\(\"([^#])/printf\(\"\#$d\:$1/; $d++; print OUT; } }