http://qs1969.pair.com?node_id=1026825


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