Select Code to Download

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

...

  DB<3> print $x
1

$ perl -E 'my $x = "a\n";  $x = chomp $x; say $x'
0

$  perl -E 'my $x = "a\n"; my $y = chomp $x; say $y;'
1

$x = chomp $x;

$c = ++$c;