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