Select Code to Download

use strict;
sub contains_pattern {
...
};

my @files = grep { contains_pattern $_, qr/^source*/ } @arr1;