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

##</code><code>##

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