Läsa filer, inte printa?

Så nu kommmer jag med ännu en nybörjar fråga.

Jag har börjat lite smått med en sida som jag hoppas ska leda till något större i framtiden, hur som helst
har jag lyckats bygga ihop en sida där man kan registrera sig, information om användaren sparar jag i en fil (en ny fil skapas för varje användare).

Sen vill jag ju läsa in filen igen när man ska logga in för att kolla så det är rätt användarnamn o.s.v.

Jag vet om hur man läser in filen, men då printas den bara ut som sagt.

Jag ska visa:

#DENNA KOD ÄR FÖR REGISTRERINGEN
#FÖRST KOMMER KODEN SOM LÄSER AV REGISTRERINGS FORMULÄRET, OVIKTIGT, d.v.s.

..en massa kod..

$filen="$user.lst";                                  #Skapar användare.lst
open (minfil,">>$filen") || &skapades_inte;

print minfil "$user-&password-&medMera";

close(minfil);

print qq^

<script language="javascript">
document.location="tack.html";
</script>

^;

sub skapades_inte
{
print "Det gick inte att skapa $filen.";
}

Nu kanske ni tycker att jag skulle andvänt en annan metod, men som sagt jag bygger bara allt på prov än.

Login scriptet:

#FÖRST KOMMER KODEN SOM LÄSER AV LOGIN FORMULÄRET, OVIKTIGT, d.v.s.

..en massa kod..

$filen="$user.lst";  #OM MAN LOGGAR IN SOM KALLE SÅ ÖPPNAS FIELN KALLE.lst
open (htmlfil,"$filen") || &fel;
@alla_rader=<htmlfil>;
foreach $rad (@alla_rader)
{
   print $rad;      
#VILL INTE ATT FILEN SKA PRINTAS UT, VILL BARA HÄMTA INFORMATION FÖR ATT GÄMFÖRA DEN MED FORMULÄR DATAN!
}
close(htmlfil);

if ($user eq ?)  #ÄR $user = ANVÄNDARNAMMNET I FILEN
{
print "Ratt!!!!";
}

sub fel
{
print "Fel!!!!!!";
}

Vad kan man göra åt saken?
Tack på förhand!

$filen="$user.lst";  #OM MAN LOGGAR IN SOM KALLE SÅ ÖPPNAS FIELN KALLE.lst

open(IN,$filen) || &fel; $filecontent=join("",<IN>); close(IN);
if($user eq $filecontent)
{
...
}

Visst är perl skoj? :) Men har du tänkt på att filen heter samma sak som innehållet (alltså användarnamn). Nästa steg är kanske att lägga alla användare i samma fil...