Well, it's a way, but I would write the block as:

for (@files) {
    my @matches = /(.{8}-.{3}-i32)/g;
    my $last_match = $matches [-1];
    print $last_match, "\n";
}
[download]

You're not doing anything with $match, and I wouldn't assing the @_. Furthermore, why use @stats if all you care about is a single scalar? It's confusing and is less efficient. Also, if you are going to match against $_, no need to bind it. Note also that there is no need to backwhack a dash in a regular expression outside of character classes.

But you can eliminate the intermediate array:

    my $last_match = (/(.{8}-.{3}-i32)/g) [-1];
[download]

Or, if you are certain there is a match:

    1 while /(.{8}-.{3}-i32)/g;
    my $last_match = $1;
[download]

You might even be able to use:

    my ($last_match) = /.*(.{8}-.{3}-i32)/;
[download]

although in some cases that might be slower, or (in case of possible overlapping matches) give you a different answer.

The latter two have the advantage that they don't create an intermediate array or list, which, if there are lots and lots of matches, could be a win.

Abigail