Help for this page
my $oldfile = "name_0009"; my $num = substr($oldfile, -4); ++$num; my $newfile = substr($oldfile, 0, -4) . $num;
my $oldfile = 'name_0009'; substr(my $newfile = $oldfile, -4)++;