$new .= '/' unless substr $new, -1 eq '/';