my $s = do {"111"; "222"; "aaa"; "bbb"};
print $s."\n";

##</code><code>##

> perl -e '
use warnings;
my $s = do {"111"; "222"; "aaa"; "bbb"};
print $s."\n";'    
Useless use of a constant ("111") in void context at -e line 3.
Useless use of a constant ("222") in void context at -e line 3.
Useless use of a constant ("aaa") in void context at -e line 3.
bbb