> > 使用前
> > 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;
> > 使用後
> > 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;
> 全く(;´Д`)簡単ヽ(´ー｀)ノだ

いまどきブルーワーカーの広告ネタかよ(;´Д`)

参考：2001/08/19(日)04時32分57秒