Select Code to Download

$var1 = 'abc~123~def';
print join("\n",split(/\~/,$var1))."\n";

1 print
2  join(
...
7   )
8  ).
9 "\n";

@MyArray = split(/\~/,$var1);

$var1 = 'abc~123~def';
$var1 =~ s/\~/\n/g;
print "$var1\n";