#!/usr/bin/perl -w use strict; print qq|Content-type: text/html\n Yeah Yeah Oh looky here, a whatever this character is called \| |; #### print <<'YayIAmDone'; look at this text. lots of non-alphanumeric characters in this print statement! 8)^404`76`5`65^%!^%^@éA¿º¿ªÑñç¦ and we don't even have to look for anything to backslash! !$#!#!1~!````~!~!~21&$3(&6(*7_*(+|}|]{]{]":':?,,?< YayIAmDone exit;