разбор заголовка e-mail

[ocehb]

my @head = split "(?ms)\r?\n(?!\\s)",do { local $/ = ""; <STDIN> };

в @head — строки из заголовка письма, со всеми переносами.
тело письма дальше в stdin, можно читать и построчно.