Select Code to Download

my @hits = grep defined, m/(?:c(a)|k(t))/g;

my @hits;
while ( m/(?:c(a)|k(t))/g ) {
   push @hits, defined $1 ? $1 : $2;
}

my @hits;
while ( m/(?:c(a)|k(t)|k(k))/g ) {
...
             : defined $2 ? $2
             : $3
}