DB<13> sub puts {my $x=pop; chomp($x); print @_,$x,"\n"}

  DB<14> puts 1,2,3,"a\n"
123a

  DB<15>