$string =~ s|/?$|/|;

##</code><code>##

$string .= '/' if $string !~ m|/$|;