well, to start...

this error:

Found = in conditional, should be == at reg.cgi line 34.
refers to this line -

elsif (&check_user_email($user_name,$email) = "good"){

change the = to ==

and these errors

Global symbol "$title" requires explicit package name at reg.cgi line +32.
Global symbol "$body" requires explicit package name at reg.cgi line 3
+2.

tell me that you need to declare $title and $body like so:

my ($title, $body)
before using them...