http-engine

my $s1 = "\x3d"; # =                                                                           
print $s1 . "\n";
my $text = 'hogehogeho\x3dhogehoge';
my ($s2) = $text =~ m/(\\x[0-9a-z]{2})/;  
print $s2 . "\n"; # \x3d ここで = を出したい   

http-engine

package Benchmark::Wrap;
use strict;
use warnings;

use Benchmark ();

BEGIN {
    *_runloop = ¥&Benchmark::runloop;
}