#!/usr/bin/perl -w
use strict;
use Benchmark qw(cmpthese);

sub PackUnpack {
    unpack "h*", pack "H*", shift;
    $v; # Thanks Roy!
}
sub SubstRegex {
    (my $v = shift) =~ s/(.)(.)/$2$1/g;
}

my @tests = map { unpack "h*", $_ }
    qw(ciao a tutti quanti 43242 432423423423 kjlf94324 dfas8902342);

cmpthese (-1, {
        PackUnpack => sub { PackUnpack($_) foreach (@tests) },
        SubstRegex => sub { SubstRegex($_) foreach (@tests) },
    }
);
__END__
              Rate SubstRegex PackUnpack
SubstRegex  3079/s         --       -79%
PackUnpack 14463/s       370%         --