Select Code to Download

use warnings;
use strict;

...
    $ins1 =~ /[\d+-]+(?: \w ([\d+-]+)(?{push @inserts, $1}))*/g;
    print "\n" . join ' ', @inserts;
}