my ($type,$mesg) = ($data =~ /<([A-Za-z]+) [+>]+>(.+)<\/$1>/);