$String=param('Message'); if ($String =~ /porn/) { print "

Goodbye

"; exit;} if ($String =~ /sex/) { print "

Goodbye

"; exit;} if ($String =~ /girls/ ) { print "

Goodbye

"; exit;}