Select Code to Download

{ # block to limit the effect of local
  local $/ = "\narea=";
...
{
  $hash{$dir}{area} = <$fh>; # read the rest of the line
}