Select Code to Download

use strict;
use warnings;
...
    next unless my @found = m{$rxPrims}g;
    print qq{Found @found on line $.\n};
}