#!/usr/local/bin/perl print "Content-type: text/html\n\n"; $_ = join "", ; ($text) = /thetext\=(.*)_/; ($new) = /z\=(.)/; $new = " " if $new eq "+"; $text =~ s/\+/ /g; $newtext = "$text${new}_"; print <<"EOD"; Deconstructing the Hegemony of Text

$newtext
EOD exit;