$line=~s/[\r\n]+$//s;

To nitpick, the /s modifier above is meaningless; the only effect of /s is to change whether the . (dot) metacharacter matches newline or not. If a pattern does not contain a dot, then /s is meaningless, by definition. See also Re: S And M -- modifiers, that is....