Select Code to Download

$item =~ /^([^:]*)/;
$level =
...
    $access{"$1:*"}) //
    $access{'*'} //
    999;

my $partial = $item =~ /^([^:]+):/ ? "$1:*" : '*';
$level =
...
    $access{$partial}) //
    $access{'*'} //
    999;