my( $userid, $pword ) = split /\|/, $record;