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