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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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