while(my $content = do { local $/; <IN> }){