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";