my $listSeparator = $"; (@array) = (1..5, "A", "B", "C"); $" = '' ; print STDOUT "The list separator is the empty string.\n"; print STDOUT "@array\n\n"; $" = $listSeparator; print STDOUT "The list separator returned to its previous value.\n"; print STDOUT "@array\n\n";