That's why I usually use $line=~tr/\015\012//d.

This removes any CR and LF from $line. It works fine as long as you don't care for empty lines.