goto SecondCheckOK if $internetpost =~ /@/ and $internetpost =~ /\./;