Select Code to Download

#!usr/bin/perl
use strict;
...
ClusterX  a_123(something) b_675(some_other_thing) b_234(something new
+) c_897(some different thing)
ClusterY   b_6998(some_other_thing, thats new) c_877797(something diff
+erent inside here) c_111(some other different thing)
ClusterZ a_1234(something interesting) a_123467(something - else thats
+ is - interesting) 3850-1-2_12243(a new one)  3850-1-2_1789(another n
+ew one)

ClusterX a_123(something) b_234(something new)    c_897(some different
+ thing)
ClusterX     -            b_675(some_other_thing)     -               
+       
...
ClusterY     -                               c_877797(something differ
+ent inside here)
ClusterZ 2_1789(another new one) a_1234(something interesting)        
+            
ClusterZ 2_12243(a new one)      a_123467(something - else thats is - 
+interesting)