my @hex =  $hexed =~ /([0-9a-zA-Z]+)/g;
for (@hex){
    ... pack 'H*', $_;
}