It isn't the print that's doing the interpolation of $/, it's happening inside $Sheet->Cells($rownum,"B")->{'Value'};

In which case I'd just hack it back to what it should be with (something like) $cellval = s!\n!/!g;