$ 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
$
[download]

I kinda expected this would work:(m|^rs://([-\w]+)|g, m|\G\.([-\w]+)|g)update: even though this does:m|^rs://([-\w]+)|, m|\.([-\w]+)|gWhy isn't the pos() set?

  p