$ perl -we 'my $foo; $foo = $foo . "foo"'    # no warning