Select Code to Download

package Chomp;
use Scalar::Readonly ':all';
...
print chomp $foo, $/;            # prints 2
print chomp $bar, "\n";          # prints 1
print chomp ($foo, $bar), "\n";  # prints 2

chomp($/);  # $/ = undef;