Select Code to Download

use strict;
use warnings;
...
}

insert( '', [ $input =~ /[^-]/g ], [ $input =~ /-/g ] );

use strict;
use warnings;
...
}

insert( '', $1, $2 ) if $input =~ /^([^-]+)(-+)$/;