Help for this page

Select Code to Download


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