Select Code to Download

    map { /(\d+)/; $1 }

$ perl -le'
use Data::Dumper;
...
          undef,
          '789'
        ];

$ perl -le'
use Data::Dumper;
...
          '456',
          '789'
        ];