$from_addr = 'me@here.com' unless ($from_addr =~ /^\w.*?@.*?\..*$/);