my $location = "hall";

open(LOC, $location) or die "Could not open area script $location.\n" .
                       "Please check if the file was deleted or moved.\n";
while(<LOC>){
my $info = $_;
chomp($info);
my $length = length($info);
$length = $length--;
my $data = substr $info, 1, $length;
last;
}

print $data;