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