my $pattern = join('|', @tokens);