my $atstatus = "N";
my $dotstatus = "N";

if ($internetpost =~ /@/) { $atstatus = "Y";}
if ($internetpost =~ /./) { $dotstatus = "Y";}
if ($atstatus eq "Y" and $dotstatus eq "Y") {goto SecondCheckOK;}
goto EmailUmfangError;

SecondCheckOK: