> > じゃぁa-z\dか
> こんな感じだな
> 作業中に付き読みやすくしてみた
> sub X{
>   map{
>     my$u=$_;
>     /\[(.*?)\]/ ?
>       X(
>         map{
>           (my$u=$u)=~s/\[.*?\]/$_/;
>           $u
>         }map{
>           /([a-z\d]+)-([a-z\d]+)/i ? ("$1".."$2") : $_
>         }split/,/,$1
>       )
>     :
>       print"$_\n"
>   }@_
> }
> X@ARGV;

確かにすげえけど遅そうだな。

参考：2001/06/24(日)04時09分52秒