I find them surprisingly tricky to eyeball correctly. E.g., unshuf[a_String, b_String] := StringCases[a ~~ "¢" ~~ b, ___ ~~ x_ ~~ y_ ~~ ___ ~~ "¢" ~~ ___ ~~ x_ ~~ y_ ~~ ___ :> x ~~ y] TableForm[{#, unshuf @@ #} & /@ {{"aniseed oils", "loin disease"}, {"disanimate", "mediastina"}, {"pericleans", "linespacer"}, {"scalyanteaters", "transacetylase"}, {"laborintensive", "inventoriables"}, {"pleonastic", "pointlaces"}, {"celeritous", "reticulose"}, {"linesofcredit", "selfdirection"}, {"nitrosamines", "nestorianism"}, {"crucible steel", "electric blues"}, {"blueshirt", "thuribles"}, {"cornmeals", "macrolens"}, {"cathartine", "anthracite"}, {"treelawns", "waterlens"}, {"dipstream", "predatism"}}, TableSpacing -> {1, 49}] aniseed oils loin disease oi disanimate mediastina di pericleans linespacer er scalyanteaters transacetylase an laborintensive inventoriables ve pleonastic pointlaces celeritous reticulose linesofcredit selfdirection di nitrosamines nestorianism es crucible steel electric blues el blueshirt thuribles es cornmeals macrolens cathartine anthracite th treelawns waterlens ns dipstream predatism re redtapism spermatid ammonolytic commonality on partleading plantigrade ad astonished dositheans he alicesfern craneflies es discrepate pederastic forcertain refraction camelspider premedicals ls bestarred redbreast ed apostlebird pilotsbread --rwg