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