Help for this page
use strict; use warnings; ... } insert( '', [ $input =~ /[^-]/g ], [ $input =~ /-/g ] );
use strict; use warnings; ... } insert( '', $1, $2 ) if $input =~ /^([^-]+)(-+)$/;