my $line = "hello\n";

$line = chomp $line;

print $line; # prints "0"!