DB<1> $x = "a\n";

  DB<2> $x = chomp $x;

  DB<3> print $x
1