@s = split m"/"; 1 < @s and $s[1] =~ s/ //g; print join "/", @s;