Excessively Decorated Comments

     # Parsing input files of perl programs
     my @lib = @$lines;

     #  This for loop does not allow return until each sub is finished
     for ($j=0; $j < @lib; $j++) {

       # Reading the first delimiter line and 'Title' line altogether
       if ($lib[$j]=~/^\#[\-_]{50,}/ ) { 
         next;
     ...