...
my $old_name= $_;
my $new_name= $sprintf( "%03d.%s", split(/\./);
rename $old_name, $new_name unless( $old_name eq $new_name);
...