作業用ディレクトリに転がってた(使い捨ての)スクリプト。 while(my $line = <>) { chomp $line; $line =~ s/"/\\"/g; print 'document.writeln("' . $line . '");' . "\n"; }