why isn't this working (perl Question)

[David A. Sinck]

\_ SMTP quoth Kimbro Staken on 4/22/2001 18:23 as having spake thusly:
\_
\_ "David A. Sinck" wrote:
\_ > 
\_ > \_ SMTP quoth Kimbro Staken on 4/22/2001 16:08 as having spake thusly:
\_ > \_
\_ > \_ Try this
\_ > \_
\_ > \_ $bufr =~ /\<(.*\@.*)\>/;
\_ > \_ if ($1) {
\_ > \_    $email = $1;
\_ > \_ }
\_ > 
\_ > Ah, but this could lead to amusements if you fail to match on the
\_ > pattern and $1 is still 'good' from a previous match:
\_ > 
\_ 
\_ Heh, heh, obvious bug, bad very very bad, slap, slap. :-)

The hand is a very bad LART, it could lead to injury; please use
approved LARTs (those with the BOFH seal of approval) from Home Depot
or Cattle-Prods-Are-Us.com.


Hmmmm....Maybe it's time to go get a permanent-marking
device/stamp/branding iron made:

<mark style=circular>
<caption type=upper>PFY Tested</caption>
<caption type=central>ISO 9000 Certified Lart</caption>
<caption type=loweer>BOFH Approved</caption>
</stamp>


David
Ok...anyone but me check to see if that domain was actually
registered? :-)