$somethingelse="AA";
$var = 'BB';
$_ = 'beforeBBafter';
s@$var@$somethingelse@;
print; #prints "beforeAAafter"