my $whole_thing = do{local $/; <TEST>};