Select Code to Download

my $unpack_format = 
'
...
    
    $personnel{ $filename =~ m[PID(\d+)\.rec] } = \%record;
}

my $re_record = qr[

...

$personnel{ .... } = \%record;