Help for this page
use warnings; use strict; ... my ($code, $addr) = $str =~ /(\S+)(?:[^)]*)\)\s*<([^>]+)/; print "$code $addr\n" if defined $addr;
k4J37P420342 someone@somedomain.com