while (my ($name, $dta) = unpack "vv/A*", $fh) {
    $encrypted and $dta = decrypt $dta;
    :