Tell chomp what your newline is like this:

local $/ = "\r\n";
chomp;
[download]

Chomp chomps whatever you tell it a newline is. local localizes that setting so it's automagically replaced with the standard newline for your system when the block the local setting is within is done.

Name another language that makes stripping newlines this easy. 8-)

Almost forgot. I wrote this simple dos_chomp function for cases where there may or may not be a CR (^M) before the LF. Enjoy!

sub dos_chomp
{
    if (!defined(@_[0]))
    {
        chomp;
        s/\r$//;
    }
    else
    {
        for (@_)
        {
            chomp;
            s/\r$//;
        }
    }

    return wantarray ? @_ : @_[0];
}
[download]