$atstatus = $internetpost =~ /@/;
$dotstatus = $internetpost =~ /\./;
if ($atstatus and $dotstatus ) {goto SecondCheckOK;}