$string =~ s/^L|(?<-)L|L(?=-)|L$//g;