Help for this page

Select Code to Download

Select or download this

 if ( $line =~ /^# \d+ \d+\.\d+$/   ..   $line =~ /^END$/ ) {
     $chunk.=$line; 
 } else {  
     process($chunk) if $chunk;
     $chunk='':
}