http://qs321.pair.com?node_id=745850


in reply to Is there a better way.

@uploads = grep /$pattern/, @files; ?

Caution: Contents may have been coded under pressure.