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