until ($_=~"From:"){push (@list, $_);}