Chris wrote:
> $a = qq~Date: Thu, 3 Jun 2004 16:59:26 -0400
That should be q~ rather than qq~ to prevent @ interpolation below.
> Message-Id: <[EMAIL PROTECTED]>
> Mime-Version: 1.0
> Content-Type: text/plain; charset=us-ascii~;
>
> @b = split (/\n/, $a);
>
> foreach (@b){
> print "
$a = qq~Date: Thu, 3 Jun 2004 16:59:26 -0400
Message-Id: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii~;
@b = split (/\n/, $a);
foreach (@b){
print "$_\n"
}
- Chris
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On B
