$data .= chr hex $1 while $encoded_pair =~ s/(..)//;