Select Code to Download

        for my $m (m/$regex/g) { # Update: reworked 
            $matched{$m} = 1;
            print "$file $_";
        }

#!/usr/bin/env perl

...
        print "$num not found\n";
    }
}