$file = D:\linkctltr.cxx; $line = 68; $type = note; $codee = 970; $rest = Use outside of a typedef; #### my ($filexml, $linexml, $typexml, $restxml) = split(/<\/\w+><\w+>/, $_, 4);