Help for this page

Select Code to Download

Select or download this

$/ = "";
my @keys = qw(dir name desc date box num1 num2 num3 num4 );
...
  @rec{@keys} = split /\n/;
  push @recs, \%rec;
}

Select or download this
```
$ perl -pie 's:^/:\n/:' file
```