my $non_ommitted_pattern =~ /(\W+).+/;
    foreach (@a) {our @match = grep {$_ == $non_ommitted_pattern} @a;