$hop='\x41';
print('At the'.$hop);
$_ =~ s/./A$hop/;