$str =~ s#/## for 1,2;