rockstar99:

Try changing this part:

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

to something like this:

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

...roboticus

When your only tool is a hammer, all problems look like your thumb.