I was trying to get my handicap down playing golf with myself and I came up with this:

print "Found $1 at line $.\n"
  if s/^[-\w]+:\s*(.*?)\s*$/($address)=(Mail::Address->parse($1))->add
+ress/eggs;
      # and spam
[download]

But it doesn't work - I get:

Can't call method "address" without a package or object reference

Can anyone tell me what I'm doing wrong?

disclaimer: My brain is a bit slow at the moment, I'm probably missing something very obvious. Sorry,

Update: thanks to dws for spotting that I'd missed out the print line. I told you my brain is a bit slow. :-)