perl -e'print"$_\n"for split/~/,"abc~123~def"'       41