DB<1> $a="1\n2\n3";$b=$a."\n"
 
  DB<2> print scalar split /\n/ for $a,$b
33
  DB<3> print scalar tr/\n// for $a,$b
23