$string =  "(L 2 W 7)";
$string =~ s/[LW] //g; # Replace L or W followed by a space by nothing.
print $string, "\n";