any-file-names-not-8x3.pl

#!/usr/bin/perl
open(X,"find |") || die;
while (my $line = <X>) {
    my $name;
    chomp $line;
    $line =~ s/^\.\///g;
    next if $line =~ m/\.git/i;
    next unless $line =~ m/\.(c|cpp|h|mak|bat)$/i;
    $i = rindex($line,'/');
    $i = -1 if $i < 0;
    $name = substr($line,$i+1);
    $i = rindex($name,'.');
    next if $i < 0;
    $ext = substr($name,$i+1);
    $name = substr($name,0,$i);
    next if length($ext) <= 3 && length($name) <= 8;
    print "$line\n";
}
close(X);