check out Email::Valid

you've got a double negative there, so as I read it, it says:

if $Mailto contains zero or more @'s (\@*) followed by a '.' (\.) then $kill = 1

or, more simply.. if $Mailto contains a '.' then $kill = 1

cheers,

J