#!/usr/bin/perl -w while (<>) { chomp; print "document.writeln('$_');\n"; }