$hop="\\x41";
print "\x41t the $hop";
s{.}{\x41};