Select Code to Download

my %values = ($string =~ /(SECTION \d+)\s+(.*?)/sg);

my $string = <<STR;

...
use Data::Dumper;
my %values = ($string =~ /(SECTION \d+)\s+(.*?)/sg);
print Dumper \%values;