fork download 
  1. set hierarchy_names {a/b/c a x d/e f/g h/i/j/k l/m/n o/p}
  2. set results [regexp -all -inline -- {(?:\w+(?:/\w+){2,}|(\w+/\w+))} $hierarchy_names]
  3. foreach {main capture} $results {
  4. 	if {$capture ne ""} {puts $capture}
  5. }
Success #stdin #stdout 0s 28208KB
comments (?)
stdin 
Standard input is empty
stdout 
d/e
f/g
o/p
https://ideone.com/5yBXnV
language:
TCL (tcl 8.6)
created:
6 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!