in reply to Re: How do I extract a text between some delimiters
in thread How do I extract a text between some delimiters

Ok. Just replace this

$part =~ s/\/\w\w//g;

by this

$part =~ s/\/\w{2,3}//g;

jkahn's solution below doesn't have this problem. Using his solution it would be:

$part =~ s!/\S*!!g;

In Section Seekers of Perl Wisdom