perl script code

[JJB]

I have this


      #("Scan line for word abuse,");

      if ((/([EMAIL PROTECTED])\s/) || (/([EMAIL PROTECTED])\s/))
      {
       if (${1} eq "[EMAIL PROTECTED]>") { $abuse_email =
"[EMAIL PROTECTED]"; next; }
       if (${1} eq "[EMAIL PROTECTED]>") { $abuse_email =
"[EMAIL PROTECTED]"; next; }
       if (${1} eq "[EMAIL PROTECTED]>") { $abuse_email =
"[EMAIL PROTECTED]"; next; }
       if (${1} eq "[EMAIL PROTECTED]>") { $abuse_email =
"[EMAIL PROTECTED]"; next; }
       if (${1} eq "[EMAIL PROTECTED]"") { $abuse_email =
"[EMAIL PROTECTED]"; next; }
       if (${1} eq "[EMAIL PROTECTED]"") { $abuse_email =
"[EMAIL PROTECTED]"; next; }
       if ((${1} =~ /[EMAIL PROTECTED]/i) || (${1} =~ /[EMAIL PROTECTED]/i))
       {
        next;
       }
       else
       {
        $abuse_email = ${1};
        debug("abuse_email body = $abuse_email\n");
       }
      }

How can I rewrite the
       if (${1} eq "[EMAIL PROTECTED]>") { $abuse_email =
"[EMAIL PROTECTED]"; next; }
       if (${1} eq "[EMAIL PROTECTED]>") { $abuse_email =
"[EMAIL PROTECTED]"; next; }
       if (${1} eq "[EMAIL PROTECTED]>") { $abuse_email =
"[EMAIL PROTECTED]"; next; }
       if (${1} eq "[EMAIL PROTECTED]>") { $abuse_email =
"[EMAIL PROTECTED]"; next; }
       if (${1} eq "[EMAIL PROTECTED]"") { $abuse_email =
"[EMAIL PROTECTED]"; next; }
       if (${1} eq "[EMAIL PROTECTED]"") { $abuse_email =
"[EMAIL PROTECTED]"; next; }

part so I can check the last position of what ever is found for > \
/ ) } ] and delete those unwanted characters from value that gets
loaded into $abuse_email???


_______________________________________________
[EMAIL PROTECTED] mailing list
http://lists.freebsd.org/mailman/listinfo/freebsd-questions
To unsubscribe, send any mail to "[EMAIL PROTECTED]"