my $data = do {local $/ = undef;<FILE>};

# $/ contains it's original value (\n) now