my ($tag, $attrs, $body) = /<(\w+)\s+(.*?)>(.*?)</\1>/s;