$content =~ /\[{(.*?)}\](.+)/

Update: also you can rewrite your loop as follows:

while ( $content =~ /\[{(.*?)}\]/g ) {
    print "$1\n";
}
[download]

note, that this doesn't use counter and just prints all occurrences.