in reply to Pattern Matching help needed

    my ($found) = $match =~ /\@([^.]*)[.]/;

[download]

Abigail

In Section Seekers of Perl Wisdom