my ($filexml, $linexml, $typexml, $restxml) = split(/<\/\w+><\w+>/, $_, 4);