#!/usr/bin/perl use CGI qw(:standard); $words = param('words'); print "Content-type: text/html\n\n"; #remove the plusses between words, put spaces instead @list = split(/\ /,$words); foreach $i ( @list ){ if( $i eq "fuck" ){ print "curse "; }elsif ( $i eq "shit" ) { print "stuff "; }elsif ( $i eq "penis" ) { print "masculine organ "; }elsif ( $i eq "vagina" ) { print "area of feminine mystique "; }elsif ( $i eq "socialism" ) { print "totalitarian communism "; }elsif ( $i eq "rape" ) { print "sexual advances "; }elsif ( $i eq "piss " ) { print "urine "; }elsif ( $i eq "fucker" ) { print "bad guy "; }elsif ( $i eq "cunt" ) { print "area of feminine mystique "; }elsif ( $i eq "cock" ) { print "rooster "; }elsif ( $i eq "ass" ) { print "rabbit "; }elsif ( $i eq "asshole" ) { print "rabbit hole "; }elsif ( $i eq "bitch" ) { print "female dog "; }else{ print "$i "; } }