TIMTOWTDI. But some ways are nastier than others. ;-)

$s='1-5,6a-e,7,10-13';

$s =~ s/,/ /g;
$s =~ s/(\d+)-(\d+)/"{".(join ",", $1..$2)."}"/ge;
$s =~ s/([a-z]+)-([a-z]+)/"{".(join ",", $1..$2)."}"/ge;
$s =~ s/([A-Z]+)-([A-Z]+)/"{".(join ",", $1..$2)."}"/ge;

print "$_\n" for glob($s);
[download]