Select Code to Download

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

> perl -e '
use warnings;
...
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