my $foo = 'foo';
$foo ~= 'bar';
say $foo; # 'foobar'
$foo [R~]= 'bar';
say $foo; # 'barfoobar'