(my $basename = fileparse($file)) =~ s/ \. .* $ //x;

##</code><code>##

printf "'%s' matches: %s\n", $basename, join(', ', @matches);