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