Select Code to Download

use strict;
use warnings;
...
our @matches;
('.' x $amount) =~ $regexp;
print(Dumper(\@matches));

>perl 546453.pl 20
(?x-ism:
...
            '5' => '3'
          }
        ];

          {
            '1' => '5',
...
          {
            '20' => '1',
          },