my ($key, $value) = m{^\s*<([^>]+)>\s*(.*)<}i;