#!/usr/bin/perl -T

use strict;

undef $/;
my $message = <>;
my ($headers, $body) = split(/\n\n/, $message, 2);
$headers =~ s/\n\s+/ /g;

foreach (split(/\n/, $headers)) {
    # ... process headers ...
}