foreach my $pattern (@patterns) {
    for (my $i = 0; $i < length($string); $i += 3) {
        push @matches, ${^MATCH}
              if substr($string, $i) =~ /^$pattern/p;
    }
}