Thank you all for help and showing me more ways to do the same thing faster.
From tweaking this small code I managed to speed it up about three times faster, just moving some stuff around. 

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, fas
+ter.
      last if !$markup; # with out this it drops speed now?
     }

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

[download]
Test output: 
Benchmark: running a_first_draft, b_second_draft, c_third_draft, d_for
+th_draft for at least 1 CPU seconds...
a_first_draft:  1 wallclock secs ( 1.05 usr +  0.00 sys =  1.05 CPU) @
+ 29132.76/s (n=30502)
b_second_draft:  1 wallclock secs ( 1.09 usr +  0.00 sys =  1.09 CPU) 
+@ 31449.73/s (n=34406)
c_third_draft:  1 wallclock secs ( 1.11 usr +  0.00 sys =  1.11 CPU) @
+ 35255.18/s (n=39098)
d_forth_draft:  1 wallclock secs ( 1.06 usr +  0.00 sys =  1.06 CPU) @
+ 115597.37/s (n=122880)

[download]

In reply to Re: Speeding up a Perl code. Can it be faster? by $h4X4_|=73}{
in thread Speeding up a Perl code. Can it be faster? by $h4X4_|=73}{

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.