21:38 >perl 508_SoPW.pl
(
  undef,
  undef,
  "abcd",
  "efgh",
  undef,
  undef,
  "jklm",
  "nopq",
  undef,
  undef,
)
("abcdefgh", "jklmnopq")

21:38 >