[RoguePhantom]

Real Hard bro. Ghetto Perl.

rx => qr/
\A ##
(\ AFK\ |\ <LINKDEAD>)? ## AFK or LINKDEAD
\[ ##
(ANONYMOUS|\d+\ [^]]+) ## ANONYMOUS or level and class
\] ##
\s+ ##
(\w+) ## player name
\s+ ##
(?:\((.+?)\))? ## player race
\s* ##
(?:<(.+?)>)? ## guild tag
\s* ##
(?:ZONE:\ (\w+))? ## zone
\s* ##
(LFG)? ## LFG tag
\z ##
/x

my ($afk_ld, $anon_level_class, $name, $race, $guild, $zone, $lfg) = @_;
my ($afk, $linkdead, $anon, $level, $class);
if (! defined $afk_ld)
{
($afk, $linkdead) = ('', '');
}
elsif ($afk_ld eq ' AFK ')
{
($afk, $linkdead) = ('AFK', '');
}
else
{
($afk, $linkdead) = ('', 'LINKDEAD');
}
if ($anon_level_class && $anon_level_class ne 'ANONYMOUS')
{
($level, $class) = split ' ', $anon_level_class;
}
else { $anon = $anon_level_class; }