Select Code to Download

[~]$ 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