Thanks for the responce Glen
If you going to ask why I don't use MySql... I have not had time to figure
out
who to use it... I am just now begining to grasp RegEx ;)
Lou

Here is what I came up with

open (READ, "$PlayerFiles/-L1-.DB")||FailPage("I can't READ -L1- <BR> $!
");
flock (READ,2);
@DB = <READ>;
close (READ);

foreach $DB(@DB)
{
chomp $DB;
@Name = split (/:/,$DB);
foreach $Name(@Name)
{
($X,$Y,$Value)=($Name =~ /(.*?)#(.*?)#(.*?)#/);
if ($Value)
{
$Position[$X,$Y]=$Value;
}
}
}