Help for this page

Select Code to Download

Select or download this

my $sep = ' ';
$, = ', ';       
$\ = $/;
...
print split ' ', $string;
print split $sep, $string; # This does not work
print eval qq< split '$sep', \$string >;

Select or download this

Hello, World
, , , , , , , , , , Hello, World
Hello, World