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

##</code><code>##

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

##</code><code>##

perl -E'say for abc,123,def'                          23