note
ikegami
<p>If you want to [doc://chomp|<c>chomp</c>] <c>\r\n</c>, set [doc://perlvar|<c>$/</c>] to <c>\r\n</c>:
<c>
local $/ = "\r\n";
$one = "Hello\r\n";
print "Before chomp: " , length($one) , "\n";
chomp($one);
print "After Chomp: " , length($one) , "\n";
</c>
549385
549393