print"$_\n"for split/~/,'abc~123~def'