Select Code to Download

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