Select Code to Download

use v5.12;

...
    next if pos($a) % 4;
    say "Match at ", pos($a), ": ", $1;
}

use v5.12;

...
{
    say "Match at ", pos($a), ": ", $1;
}