Select Code to Download

use warnings;
use strict;
...
my ($code, $addr) = $str =~ /(\S+)(?:[^)]*)\)\s*<([^>]+)/;

print "$code $addr\n" if defined $addr;

k4J37P420342 someone@somedomain.com