local $/="\r";