Question

I’m searching a string for all valid e-mail addresses ending in @enron.com.

My assignment is the following line:

my $enronAddress =~/^(.+?)@\@enron\.com/i;

This isn’t making any assignments, so I’m wondering what I’ve done wrong here.

Answer 1

Are you looking for all valid addresses within the string, or checking that the complete string is a valid address? I don’t understand what you mean by “This isn’t making any assignments” as all you have written is a regex pattern match

First of all you have two @ signs in your pattern, which is clearly wrong

A lot depends on what you consider to be a valid email address, but for a start this will check whether the contents of $enronAddress is a valid address

if ( $enronAddress =~ /^[^@\s]+\@enron\.com$/i ) { ... }

and this will print all valid addresses that appear in $enronAddress

print "$_\n" for $enronAddress =~ /[^@\s]+\@enron\.com/gi;