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