Select Code to Download

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

-4 -4 1