Select Code to Download

#!/usr/bin/env perl -l

...

    return $_;
}

Sanity Tests:
shoura:    >aaa bbb ccc<
...
S 292306/s   -- -32% -37%
M 432626/s  48%   --  -7%
K 464863/s  59%   7%   --

#!/usr/bin/env perl -l

...

    return $re;
}

Sanity Tests:
kcott:     >(?^:(W X Y|X Y Z|X Y))<
...
      Rate    K    M
K 240417/s   -- -13%
M 277468/s  15%   --

my %seq = (
    'W X Y' => 'WbbbXbbbY',
    'X Y'   => 'XbbbY',
    'X Y Z' => 'XbbbYbbbZ',
);

W XbbbY Z
WbbbXbbbY Z
W XbbbYbbbZ

sort { length $b <=> length $a || $a cmp $b }