OpenGrok

474 	local($type, $perm, $rest, $c, $len, $name);
484 	    $name = substr($rest, 1, $len);
485 	    $rest = substr($rest, 2 + $len);
rest = substr($rest, 2 + $len);
486 	    $perm = oct($perm) if $perm =~ /^\d+$/;
995 		    local($type, $perm, $rest, $c, $len, $name);
1032 			  $rest, $c, $len, $name);
1236     local($type, $perm, $uid, $gid, $rest, $c, $len, $name);
1247 	$name = substr($rest, 1, $len);
1248 	$rest = substr($rest, 2 + $len);
rest = substr($rest, 2 + $len);
1249 	$perm = oct($perm) if $perm =~ /^\d+$/;