[\\\/] or: [\/\\] so you get: $a =~ s|[\/\\]browse([\/\\].*[\/\\])|$1|i;