my $re = join '|', map "($_)", qw[ab ac ad ba bla etc];

for (qw[tab act mad bar blank fetch]) {
    printf "%-6s %-4s %d\n", $_, $+, $#- if /$re/;
}