[SOLVED] email regex not working

[Maq]

I have messages that I want to scan through and search for email addresses.  If found, I want to replace them with XXXXXXX.  I tried this with the word "the" and it works.  I have also used this regex in another vbScript and it works fine.  What am I doing wrong...

 

$myFile = "emails.txt";
$fh = fopen($myFile, 'r+');
$pattern = "/\b[A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,4}\b/";
$i=0;
while(!feof($fh))
{
$theData = fgets($fh);
echo preg_replace($pattern, "XXXXXXXXX", $theData);
$i++;
}
fclose($fh);

?>