local $/;
    $/="\r";