my $CR="\015";
my $LF="\012";
my $foo="unknown_os\n";
$foo =~ s{$CR?$LF}{\n}xms;
print $foo;