Select Code to Download

#!/usr/bin/perl

...
use Data::Dump 'dd';

dd map s/.*\K,/ and/r, reductions { "$a, $b" } 'A'..'Z';

(
  "A",
...
  "A, B, C, D, E, F, G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, V, W
+, X and Y",
  "A, B, C, D, E, F, G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, V, W
+, X, Y and Z",
)