http://www.perlmonks.org?node_id=737502


in reply to mailadress splitten.

Something like this ? :
my @email=($to=~/<([^>]+)>/gs);

GreetZ!,
    ChOas

print "profeth still\n" if /bird|devil/;