print(
    concat(
        'At the',
        getVar('$hop')
    )
);
##</code><code>##

$hop="\x41";
print "\x41t the $hop";
##</code><code>##

$hop='A';
print('At the'.$hop);
##</code><code>##

setVar('$hop', 'A');
print(
    concat(
        'At the',
        getVar('$hop')
    )
);
##</code><code>##

$hop="\\x41";
print "\x41t the $hop";
##</code><code>##

$hop='\x41';
print('At the'.$hop);
##</code><code>##

setVar('$hop', '\x41');
print(
    concat(
        'At the',
        getVar('$hop')
    )
);
##</code><code>##

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

##</code><code>##

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

##</code><code>##

setVar('$hop', '\x41');
print(
    concat(
        'At the',
        getVar('$hop')
    )
);
substitute(
    getVar('$_'),
    lhsRe('.'),
    rhsString('A')
);

##</code><code>##

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

##</code><code>##

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

##</code><code>##

setVar('$hop', '\x41');
print(
    concat(
        'At the',
        getVar('$hop')
    )
);
substitute(
    getVar('$_'),
    lhsRe('.'),
    rhsEval('
        concat(
            \'A\',
            getVar(\'$hop\')
        );
        '
    )
);

##</code><code>##

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

##</code><code>##

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

##</code><code>##

setVar('$hop', '\x41');
print(
    concat(
        'At the',
        getVar('$hop')
    )
);
substitute(
    getVar('$_'),
    lhsRe('.'),
    rhsEval(
        expandBackslashed(
            rhsEval('
                concat(
                    \'A\',
                    getVar(\'$hop\')
                );
                '
            )
        )
    )
);