if (@$MsgContent[$count] =~
    /^(To|From|CC|Date|Subject|Message-ID)\s*:\s*(.*)$/ )
{
    $MsgHash{ $1 } = $2;
    print "$1 : $2";
}