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