$ perl -lwe'print join" > ",m#(?:^rs://|\.)([-\w]+)#g
                         for qw(rs://b.c rs://d.e.f rs://g.h.i.j.k)'
b > c
d > e > f
g > h > i > j > k
$ 
##</code><code>##

(m|^rs://([-\w]+)|g, m|\G\.([-\w]+)|g)

##</code><code>##

m|^rs://([-\w]+)|, m|\.([-\w]+)|g