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