# trim to just the Root node
$xmlIn =~ s/^.*(<Root.*?>).*$/$1/s;
# grab the key/value pairs
%rootAttr = ($xmlIn =~ m#(\S+?)="(\S+?)"#g);