Select Code to Download

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