1) eval { eval "# $nada" }; # eval eval? evil!? ;-)
2) (-d _) # the underline?
3)   1 while $abs_name =~ s!/<regexp>/!; 
4) local *_ = \my $a;
5) $SLnkSeen{$DEV, $INO}++; # %SLnkSeen 
6) *name # for what the star? uses?