I am responsible for /c in match condition & simultaneous assignment in while loop (for replied in hurry, misread the /c description). Here is what works ...

#  Without /g, it would be an endless loop for match will
#  always start at the start of $data.
while ( $data =~ m/$parse/g )
{
  my ( $auth , $text ) = ( "$1" , "$2" );
  ...
}
[download]

(Circa 2001-2005, there are some examples of XML::(Twig|Simple) use to parse the chatterbox XML around here somewhere.)