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