Select Code to Download

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

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

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