$newstring =~ s/0/L/g;   # will substitute every appearence of 0 with L