$directory =~ s{ (?: ^ /* | (?<=[^/])/* $ ) }xg;