最近マジでPerlに魅力を感じなくなってきたよ

最近マジでPerlに魅力を感じなくなってきたよ (320ﾚｽ)
上下前次 1-新

60(3): 03/01/12 00:47 ID:??? AAS
$line = join ',', map {(s/"/""/g or /[\r\n,]/) ? qq("$_") : $_} @values;
こんなのがPrelの綺麗なコード。