$ perl -e 'my $v = "foo\n"; $foo = chomp($foo); print "$foo\n";'
0