Select Code to Download

#!/usr/bin/perl -w

...
            print STDERR "Didn't match: $line\n";
    }
}

my @matches = grep { m/$regex/ } @lines;
($_) = m/$regex/ foreach @matches;