$string =~ s/-L|L-/-/g;
$string =~ s/^L//;
$string =~ s/L$//;