in reply to Libxml parser cosuming 100% cpu

use less! 

use less 'CPU';

if (less->of('CPU')) {
  #10Lakhs Line
}

[download]

In Section Seekers of Perl Wisdom