@a=map{m[(\d+)([a-z]?)-(\d+|[a-z])]and$2?(map{$1.$_}$2..$3):($1..$3)}split',',$s;
print "@a";
1 2 3 4 5 6a 6b 6c 6d 6e  10 11 12 13