> 俺の146 bytesよりも短いのを募集ヽ(´ー｀)ノURL展開スクリプト
> sub X{map{my$u=$_;/\[(.*?)\]/?X(map{(my$u=$u)=~s/\[.*?\]/$_/;$u}map{/([a-z0-9]+)-([a-z0-9]+)/i?("$1".."$2"):$_}split/,/,$1):print"$_\n"}@_}X@ARGV;

a-z0-9は\wにしたらあかんの？「_」が入ったらダメ？

参考：2001/06/24(日)03時57分03秒