Help for this page

Select Code to Download

Select or download this

local $/ = "\r\n";

...
print "Before chomp: " , length($one) , "\n";
chomp($one);
print "After Chomp:  " , length($one) , "\n";