($item = 'Test');
($level = ((($access{$item} // (($item =~ /^([^:]+):/) && $access{"$1:*"})) // $access{'*'}) // 999));
print("level='${level}'\n");
test.pl syntax OK