my $xlsdata = do{ local $/ = \-s( XLSFILE ); <XLSFILE> };

##</code><code>##

my $xlsdata = do { local $/; <XLSFILE> };