if($filecontents =~ /\*\sdisks/){
        my @matchsect = /\*\sdisks/;
        print "@matchsect\n\n";
}

##</code><code>##

        if ($filecontents =~ /\*\sdisks/) {
             # delete everything up to the first occurrence
             # of "* disks"
             $filecontents =~ s/^.*?\*\sdisks//;
             print "$filecontents\n\n";
        }