my $text = '<smtp:something.something.something@something.something.something.com>';
my @addresses = $text =~ m!<smtp:(.*@.*)>!g;
print "$_\n" foreach @addresses;