$/ = "";
my @keys = qw(dir name desc date box num1 num2 num3 num4 );

my @recs;
while (<>) {         # read a group of lines
  my %rec;
  # split the line at newlines and assign to a hash slice
  @rec{@keys} = split /\n/;
  push @recs, \%rec;
}

##</code><code>##

$ perl -pie 's:^/:\n/:' file