perl -le'print for split/~/,"abc~123~def"'           37
perl -E'say for split/~/,"abc~123~def"'              34
perl -E'$_="abc~123~def";s/~/\n/g;say'               33