sub forth_draft {
    my %xlist = map{ split('\/', $_) } split(',', $match_list);

    $attrs =~ s/\A$tag //; # clean up
    for (split (' (?=\w+\=)', $attrs)) {
     my ($name, $value) = split('=');
     # little more golfing action
     (defined $xlist{$name} && $markup =~ s/X\{$name\}/$value/g)
      ? $xlist{$name} = undef # this exists now
      : $markup = '' if $markup; # do this and let it run through, faster.
      last if !$markup; # with out this it drops speed now?
     }

     # not in Benchmark
#     $markup
#     ? print $markup
#     : print 'nope';
}