$data = join '', map { chr hex $_ }  $encoded_pair =~ /(..)/g;