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

  DB<2> $x = chomp $x;

  DB<3> print $x
1

##</code><code>##

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

##</code><code>##

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

##</code><code>##

$x = chomp $x;

##</code><code>##

$c = ++$c;