perl -i.old -pe '$sawSlash++ && s#/## if m#/#'