> > http://perltidy.sourceforge.net/
> > とりあえず整形プログラムに頑張ってもらえヽ(´ー｀)ノ
> qrpff.plは整形不可能だと思うよ(;´Д`)

qrpff.plは$_に突っ込んでevalだからな
俺の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;

使用後
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時23分36秒