$a = "Paul";
  $a =~ s!(.)!sprintf("%02x", ord($1))!eg;
  print "0x$a";