http://www.perlmonks.org?node_id=1042477


in reply to Coping a part of text file

use strict;
use warnings;
while (<DATA>) {
    print if /FileName/ .. /DATA LIST/;
}
__DATA__
          FileName:                                                  
+      
           Function:                                                  
+      
          Written by:                                                 
+       
                                                      
                                                                      
+      
 
  REVISION 
  -Rev. -- Date --------------------------------------------------
    00   11/11/11      Initial release.
    01   12/04/12      Edited
    01   12/04/12      Final
    02   01/10/13    Sispatched
  
 ----------------------------------------------------------------*/
 
 
 
 
 
  DATA LIST 
 
/*========= List =========*/ 
 

Currency ............. cotd

[download]
Bill

In Section Seekers of Perl Wisdom