open( MB, "mailbox" ) or die $!;
@mb = <MB>;
close( MB );

$start = 0;

for ( $i = 0; $i < $#mb; $i++ )
{
	my $line = $mb[$i];
	if ( $line =~ /^Subject: (.*?)\n/i )
	{
		for ( $j = $i; $j > $start; $j-- )
		{
			if ( $mb[$j] !~ /^([a-zA-Z0-9-])+: (.*?)\n/ )
			{
				if ( $j != $start )
				{
					saveMail( $start, $j );
				}
			}
		}
	}
}