open PAGE, "$data_reg" or die "Can't open $data_reg: $!"; while (my $line = ) { ($username_db,$password_db,$email_address_db,$name_db,$spare) = split "\t",$line; if ($username eq $username_db) { $check++; } else { $problem = "Unfortunately we cannot find reference to the username supplied.
Please check with the webmaster of this site."; print "$problem"; exit; } } close PAGE;