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

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._-]+\@tiles.ie)/g) { $mail{$1}++; # count ocurrences } print join "\n", keys %mail; __DATA__ ljkljkds lkjlkj@tiles.ie lkjljlk gerry@tiles.ie kljlkjlkjdfs ljklkjlk lkjljk gerry@tiles.ie 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