in reply to Regular Expression Help

$path =~ s{(.*/).*/}{$1};

[download]

In Section Seekers of Perl Wisdom