The examples you give use a non-word character as a delimeter. Is that always the case? If so,

my @name_parts = split /(\W)/, $name;
my $clantag = exists $clanhash{$nameparts[0]}
              ? $nameparts[0] . $nameparts[1]
              : $nameparts[1] . $nameparts[2];
[download]

You may want to make a hash of the clantags in any case. You could then use index to find them in names.

After Compline,
Zaxo