Matching Problem

I setup sendmail to forward mail for a specifc addy to my PERL script.
I can't figure out how to match the blank line between the header and the
body of the message, though.

I got ?^$? from an example in the perlop man page, but it doesn't seem to be
working.
Does anyone have a suggestion?  Below is the block of code in question:

# Allow filename to be used instead of STDIN for debugging purposes
open (STDIN, $ARGV[0]) if (($ARGV[0] ne "") && ($ARGV[0] ne "-"));

$msgbody = 0;

@mail = <STDIN>;
for $mail (@mail)
{
  if ($msgbody == 1)
  {
    $count = @body;
    @body[$count] = $mail;
  } else {
    $msgbody = 1 if ($mail =~ ?^$?);  #Find Blank Line After Header
  }
}

Thanks in Advance
Sheridan Saint-Michel


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com

• Matching Problem by Lysander
• Re: Matching Problem by John W. Krahn
• Re: Matching Problem by Jenda Krynicky
• Re: Matching Problem by Lysander
• Re: Matching Problem by Tanton Gibbs
• Re: Matching Problem (Solved) by Lysander