Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

Re: parse email address

by hdb (Monsignor)
on Apr 03, 2013 at 11:09 UTC ( [id://1026825] : note . print w/replies, xml ) Need Help??

in reply to parse email address

use strict; use warnings; { local $/=''; my $entries = <DATA>; } my %mail; while ($entries =~ /([A-Za-z0-9._-]+\ { $mail{$1}++; # count ocurrences } print join "\n", keys %mail; __DATA__ ljkljkds lkjljlk kljlkjlkjdfs ljklkjlk lkjljk lklkj lkjlkjlkjjjjjjjjj

Replies are listed 'Best First'.
Re^2: parse email address
by BigGer (Novice) on Apr 03, 2013 at 12:39 UTC

    Thats Great thanks for your help. G