Haskell, with user input
condRev :: [Char] -> [Char]
condRev s = if length s >= 5 then reverse s else s
toString :: [[Char]] -> [Char]
toString  = 
toString (x:) = x
toString (x:xs) = x ++ " " ++ toString xs
solve :: [Char] -> IO ()
solve s = putStrLn $ toString $ map condRev $ words s
main :: IO ()
main = do
line <- getLine
We're a place where coders share, stay up-to-date and grow their careers.
We strive for transparency and don't collect excess data.