Select Code to Download

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

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