Select Code to Download

use strict;
use warnings;
...
   qq{After:\n},
   qq{     @array\n},
   qq{     @extracted\n};

Before:
     3 13 73 4 29 38
After:
     3 13 4 29
     73 38