Use Text::FixEOL to fix messed up line endings. It does the sane thing for even really messed up line endings in most cases. That is what it was written for.
use Text::FixEOL;
# Convert EOLs in the $file string to unix conventions
my $fixer = Text::FixEOL->new;
$file = $fixer->to_unix($file);