perl_c_question_for_sof

== What is the fastest way to minimally check that some file contains perl code (not something  else) ==

"perl -c file" is very slow, for big amount of perl sources it is excessive, when all is needed is to check whether some file contains perl code or not. I dont need to check stricts or some complex conditions like possibility to load packages via "use" directives. For me it is absolutely enough to know that, say, file XXX is a perl source file with a probability of 80%. I dont need to execute anything in BEGIN {} blocks or check whether file syntactically correct for 100%. My goal is to separate perl source files from some garbage, when perl files and garbage files can have any "extensions" (because a lot of perl files i'm dealing with has names like foo.bar.abc.do-me.good). When i using perl -c it takes too much time to check, though i use AnyEvent and Proc::FastSpawn in my checker script.
I tried file and ohlohcount utilities as well, but  its assumptions is VERY inaccurate.

Are there any performance-oriented perl package or so to check whether some text is a perl code with some estimate of probability?

Thanks!