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