Select Code to Download

  my @matches = $string =~
    /
...
     ){1,45} # 7-char thing     # up to 45 groups
     $                          # end of line
    /gx;