my $string = "<message><file>D:\linkctltr.cxx</file><line>68</line><type>Note</type><codee>970</codee><desc>Use outside of a typedef</desc></message>";

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