$_="http://bla.com";
s#([^/])$#$1/#; 
$_ .= "foo.html";
print;
# prints http://bla.com/foo.html


$_="http://bla.com/";
s#([^/])$#$1/#; 
$_ .= "foo.html";
print;
# prints http://bla.com/foo.html