my @at = $internetpost =~ /@/g;
my @dot = $internetpost =~ /\./g;
if( @dot > 0 and @at == 1) {goto SecondCheckOK;}