my %attrs = "Tags are:\n\t", Mojo::DOM->new($data)->attr;
map{ print "(%s)/(%s)\n", $_, $attrs{$_} } sort keys %attrs;