Select Code to Download

use strict;
use warnings;
...
          $str =~ /\[([^\]]+)\]/g;  # but only between [ and ]

print Dumper(\@ary);