{ undef $"; my @strs = 'a' .. 'e'; my $s4 = "@strs"; print "$s4\n"; # $s4 contains 'abcde' }