Select Code to Download

my @sections = $str =~ m/^===Comments===\n(.*?)\n=.*?=$/gms;

...
    print " $2 : $1\n";
}

$VAR1 = [
          '
...
 Aditional Info : 
Comments related to the pathway information here.

my %x = map {
    /^=([^\n]*)=\n.*\n===Comments===\n(.*)$/s ? ( $1 => $2 ) : ()
} split(/(?=^=[^=])/m,$str);

print Dumper(\%x);

$VAR1 = {
          'Microarray Data' => '
...

'
        };