if ($line =~ m/To:/i) { if ($line =~ m/<([^>]+)>/i) {print "<$1>\n"} }