if (($aliasmailbox !~ /\@/) or ($aliasmailbox !~ /\./)) { 
&TaskLog("IMSModifyDetails sub::User's input not sufficient---a\n");
print $query->redirect("/cgi-bin/DisplayModifyDetails.cgi?&ErrorMsg2=INPUT3");
exit;				
}
if ($aliasmailbox =~ /^\A[\@|\.]/) {
&TaskLog("IMSModifyDetails sub::User's input not sufficient---b\n");
print $query->redirect("/cgi-bin/DisplayModifyDetails.cgi?ErrorMsg2=INPUT3");
exit;				
}
***
if (($aliasmailbox =~ /\Z\@/) or ($aliasmailbox =~ /\Z\./)){
&TaskLog("IMSModifyDetails sub::User's input not sufficient---b\n");
print $query->redirect("/cgi-bin/DisplayModifyDetails.cgi?ErrorMsg2=INPUT3");
exit; }				
***

##</code><code>##

if ($aliasmailbox !~ /^.\@$@\.$/)