note
esskar
<code>
my $text = '<smtp:something.something.something@something.something.something.com>';
my @addresses = $text =~ m!<smtp:(.*@.*)>!g;
print "$_\n" foreach @addresses;
</code>
But i still prefer my Email::Find solution; then you will be safe!
<edit>miss-spelling fixed</edit>
432574
432597