my $all = do {local $/; <IN>};