### make sure its a valid form
if($inmembername eq "") { $blankfields = "yes"; }
if($password eq "") { $blankfields = "yes"; }
if($emailaddress eq "") { $blankfields = "yes"; }
if ($blankfields) {
print header(); &error("$ibtxt{'1858'}&$ibtxt{'1859'}");
}
if($inmembername =~ /_/) { print header(); &error("$ibtxt{'1858'}&$ibtxt{'1904'}"); }
$inmembername =~ y/ /_/;
$_ = $inmembername;
if ((m/\b[_]/) || (m/_{2,}/) || (m/[_]\b/)) {
print header(); &error("$ibtxt{'1858'}&$ibtxt{'1905'}");
}
unless (/^[\w\d\xE0-\xFF\xC0-\xDF]+$/){
print header(); &error("$ibtxt{'1858'}&$ibtxt{'1905'}");
}
if($emailaddress !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/) { print header(); &error("$ibtxt{'1858'}&$ibtxt{'0906'}"); }
|
... Люди прошу помощи и каюсь 
:D