my $oldfile = 'name_0009';
substr(my $newfile = $oldfile, -4)++;