tr[/][]s

##</code><code>##

(my $url = "$string1/$string2") 
  =~ s((://)|//+){ $1 || "/" }ge;