my $str = "wwibblewibblewibblewibbleibblewibblewibblewibble\x{20ac}";

          Rate  regex unpack substr
regex  14222/s     --   -35%   -51%
unpack 21976/s    55%     --   -24%
substr 29020/s   104%    32%     --