$hop="\x41";
print "\x41t the $hop";