Detecting for(;;) constructs is doable in perl5. Its a good project for a budding perlguts hacker to try.

Added: If you want to do this its solution likely involves looking at the optree structure created by saying for(;;) and then using B::Util/B to detect those structures. You should also look at perly.y to see the initialize, while( condition ) { ...; increment } structure.