$str =~ s{^\Q$/\E}{};

##</code><code>##

if (substr($str, 0, length($/)) eq $/) {
    substr($str, 0, length($/), '';
}