in reply to chop is chopping off the last letter
Don't use chop()!
Change your code to say the following and you won't have problems any more. (not that one any how.)
my( $userid, $pword ) = split /\|/, $record; [download]
-- Casey