# if ( substr( $string1, -1, 1 ) eq "/" ) # check for trailing slash.
if ( $string1 =~ s|/\s*$|/| ) # even better
{
    $string2 =~ s|^/||; # remove leading slash if it's present.
}