Select Code to Download

  DB<119> $x
 => "junk   ;a;not;b;not;c;;  junk   ;d;not;e;;  junk   "
...

  DB<122> $x =~ /;([^;]*?);;/g      # non-greedy, trying multiple anch
+ors.
 => ("c", "e")