my $header = <<'HEADER';
Return-Path: <NITAIGOURANGA@AOL.COM>
X-Original-To: grinder@example.com
Delivered-To: grinder@example.com
Received: from RX504Second (ACBC197E.ipt.aol.com [172.188.25.126])
        by example.com (Postfix) with SMTP id C5960A94C
        for <grinder@example.com>; Mon, 30 Jun 2003 13:18:36 +0200 (CEST)
From: "GOURANGA" <NITAIGOURANGA@AOL.COM>
HEADER

my @header = split /\n(?!\s+)/, $header;