Select Code to Download

use Modern::Perl;
use Data::Dumper;
...
}

say Dumper \@array;

$VAR1 = [
          {
...
            'chapter' => '2.'
          }
        ];

/(\d+\.\d*)\s+\.+\s+(\S+)\s*/g
   ^  ^ ^   ^  ^  ^   ^   ^  ^
...
   |  | + - Capture zero or more digits
   |  + - Capture a period
   + - Capture one or more digits