open (USERLIST,"<$username.cfg") or die $!; @LST=<USERLIST>; close (USERLIST);

foreach $reguser (@LST){ chomp($reguser); ($usr_name,$usr_age,$usr_sex)=split(/\|/,$reguser); print "<html><body><h2><i>\n"; print "Hello, you are logged in as $usr_name. You are a $usr_age year old $usr_sex.\n"; print "</i></h2></body></html>\n"; }