http://qs321.pair.com?node_id=251732


in reply to Re: Re: simple pattern matching.
in thread simple pattern matching.

Assuming the data is in $_, 
my ($text) = m!/([^/]+)/!;

[download]

In Section Seekers of Perl Wisdom