$a =~ s/\/great$//;

##</code><code>##

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