my $pattern = '^(?:' . join('|', @tokens) . ')[^a-zA-Z]*$';