while (<DATA>)
{
  last if /^$/;    #Header is done!
  print "From: $1\n\n" if /^From:(.+)$/; #Print the from address
}

while (<DATA>) #This while loop starts from where the other left off
{print}


__DATA__;
To: blah@blahblahFrom:
From:green.ecgs@ham.org
Subject:test

Do you like green ecgs and ham?

Would you eat them in a house?
Would you eat them with a mouse?