Select Code to Download

$s = '1-5,6a-e,7,10-13';
@s = split ( ',', $s );
...
print "@s";

# 1 2 3 4 5  6a-e 7 10 11 12 13

($_='kkvvttuubbooppuuiiffssqqffssmmiibbddllffss')
 =~y~b-v~a-z~s;                             print