my $foo = "foo";
my $bar = "bar";
$bar .= substr( $foo, 1, 1 ) = "baz";
print "foo: $foo\nbar: $bar\n";