$bleh = 1;
$var = 3;
print join "\n", grep { ! ( /^\*/ || /(::|\W)/ ) }
grep { ! /(std(err|out|in)|ARGV|INC|ENV|0|STD(ERR|OUT|IN)|_)/ }
keys %::;