$lines =~ s#($/)+#$/#g;