my( $cr, $lf )= ( "\r", "\n" );
( $cr, $lf )= ( "\n", "\r" )
    if  "\r" eq "\x0a"; # On an old Mac

    ... s/$cr$lf/$lf/g;