Select Code to Download

use strict;
use warnings;
...
                }
        }
}

my @Matches = grep { /$_/, $line } @arr; #get the pattern not the matc
+hed line