my @parts = split /(-)/, "-1-2-";
print Dumper(\@parts);