OpenGrok

464 	local($type, $perm, $rest, $c, $len, $name);
474 	    $name = substr($rest, 1, $len);
475 	    $rest = substr($rest, 2 + $len);
rest = substr($rest, 2 + $len);
476 	    $perm = oct($perm) if $perm =~ /^\d+$/;
984 		    local($type, $perm, $rest, $c, $len, $name);
1021 			  $rest, $c, $len, $name);
1225     local($type, $perm, $uid, $gid, $rest, $c, $len, $name);
1236 	$name = substr($rest, 1, $len);
1237 	$rest = substr($rest, 2 + $len);
rest = substr($rest, 2 + $len);
1238 	$perm = oct($perm) if $perm =~ /^\d+$/;