my $end = chop $string1;
my $beg = chop reverse $string2;
my $url = $string1 . ($end eq '/' ? '' : $end) . '/' . ($beg eq '/' ? '' : $beg) . $string2;