Select Code to Download

use warnings;
use strict;
...
my $re = 's!(?:^|/)[^\s,@;]*(?<=/)([^\s,@;]+?)(?=[\s,@;]|$)!$1!g';
my $parser = YAPE::Regex::Explain->new($re);
print $parser->explain;

The regular expression:

...
----------------------------------------------------------------------
)                        end of grouping
----------------------------------------------------------------------