$new =~ s/\\/\//g; $new =~ s/([^\/])$/$1\//;