OpenGrok

477 	local($type, $perm, $rest, $c, $len, $name);
487 	    $name = substr($rest, 1, $len);
488 	    $rest = substr($rest, 2 + $len);
rest = substr($rest, 2 + $len);
489 	    $perm = oct($perm) if $perm =~ /^\d+$/;
998 		    local($type, $perm, $rest, $c, $len, $name);
1035 			  $rest, $c, $len, $name);
1239     local($type, $perm, $uid, $gid, $rest, $c, $len, $name);
1250 	$name = substr($rest, 1, $len);
1251 	$rest = substr($rest, 2 + $len);
rest = substr($rest, 2 + $len);
1252 	$perm = oct($perm) if $perm =~ /^\d+$/;