my $file = 'name_0009';
substr($file, 5, 4)++;
print $file, "\n";