On Mon, 9 Feb 2004 james.madill at duke.edu wrote:
...
> while(<HEADERS>){
> 	chomp;
> 	$line = $_;
> 	$idx = index($line, "Subject: ");
> 	if ($idx == 0){
> 		$msgSubject = substr($line, 9);
> 	}
> }
The message subject is already available as the global variable
$Subject; it's not necessary to parse the HEADERS file.
Regards,
David.