Shell Programming and Scripting

#!/usr/bin/perl 

$INFILE="/root/scripts/data.txt";
$pat1="SCRIPT####";
$pat2="SCRIPT#echo";

$flag=0;
$inc=0;
$chunk="";

open(INFILE,"<$INFILE")|| die;
while(<INFILE>) {
    if (/$pat1/ ... /$pat2/) {
        next if $_ =~ /$pat1/;
        next if $_ =~ /$pat2/;
        #print "$_";
        $chunk .= $_;
        }
        @parsed[$inc] = $chunk;
        $inc++;
}

SCRIPT########################LIST_MODULES####################
lsmod
Module                  Size  Used by    Not tainted
tg3                    49952   2 
SCRIPT#echo 'Done.'
SCRIPT########################5.5 ACULAB####################
 grep insmod /usr/local/etc/init.d/aculab_driver
do_insmod() {
  /sbin/insmod /usr/local/src/aculab/install/dacpswcl.o numcards=1 bustype=1 'serialorder="0: 0"' irqnum=15 ioaddry=0x394
 memwindow=0xD000 dmach=0 'clconfig="0: "' 'swconfig="0: "' 'smconfig=""' 
    do_insmod
SCRIPT#echo 'Done.'

lsmod
Module                  Size  Used by    Not tainted
tg3                    49952   2

#!/usr/bin/perl 

undef $/;
my $file = <>;
my @parsed;

while ($file =~ /SCRIPT####(.*?)SCRIPT#echo/sg) {
    my $chunk = $1;
    push @parsed, $chunk;
}
foreach $x (@parsed) {
print "$x\n";
print "++++++++++++++++++++++++++++++++\n";
}