Select Code to Download

my $index = 0;
for (my $i = 0; $i < 100; $i++) {
...
    my $fullname = sprintf "base_%04d", $index;
    printf "fullname = '%s'\n", $fullname;
}

$last_4_chars = substr($my_string, -4);