my ($file)  = $string =~ /<file>([^<]+)/;
my ($line)  = $string =~ /<line>([^<]+)/;
my ($type)  = $string =~ /<type>([^<]+)/;
my ($codee) = $string =~ /<codee>([^<]+)/;
my ($desc)  = $string =~ /<desc>([^<]+)/;