Select Code to Download

    $_ =~ s/(\d+)/sprintf("%03d",$1)/e;

    s/(\d+)/sprintf("%03d",$1)/e;

    (my $newname=$_) =~ s/(\d+)/sprintf("%03d",$1)/e;

    rename($oldname,$_) unless $oldname eq $_;

touch zizze; perl -le 'rename "zizze", "zizze" or die $!'