until ($FromAddress =~ /From/i)
{
     $FromAddress = <STDIN>
}