Separate a string based on '/' so you can past it easily in e.g. Google Sheets.

separator.hs

import Control.Monad
sep [] = []
sep xs = word : sep ((drop ((length word) + 1) xs))
                where word = takeWhile (/= '/') xs
            
main = do
    xs <- getLine
    putStrLn ""
    mapM_ (\x -> putStrLn x) (sep xs)
    putStrLn ""
    main