$str =~ s#/##   for  1,2;

##</code><code>##

    s#(/\s*){2}\z##

##</code><code>##

    perl -i.old -pe '$sawSlash++ && s#/## if m#/#'