regex - Perl: string manipulation - surrounding a word with a character '@'

Question

I am trying to extract email address from a txt file. I've thought about surrounding words that contain the '@' character. Does anybody know a expression to do that?

Answer 1

Whenever you need some reasonably common matching problem resolve in Perl, you should always first check the Regexp::Common family on CPAN. In this case: Regexp::Common::Email::Address. From POD Synopsys:

  use Regexp::Common qw[Email::Address];
  use Email::Address;

  while (<>) {
      my (@found) = /($RE{Email}{Address})/g;
      my (@addrs) = map $_->address, Email::Address->parse("@found");
      print "X-Addresses: ", join(", ", @addrs), "
";
  }