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