my $foo = 'bar'; $foo ~= s/a/ee/;