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