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

##</code><code>##

1 print
2  join(
3   "\n",
4   split(
5    /\~/,
6    $var1
7   )
8  ).
9 "\n";

##</code><code>##

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

##</code><code>##

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