$a =~ s/(\/.*)$//;
$bar = $1;

##</code><code>##

$a =~ s#(/[^/]*)$##;
$bar = $1;