[~]$ perl -le '$_ = ";A-B-C-D;E-F-G-H;J-K-L-M;N-P-R-S;T-W-Y-Z;"; /\;([^;]*?L[^;]*?)\;/; print $1;' J-K-L-M