my $foo = "bar\n";
undef $/;
chomp $foo;