#!/usr/bin/env perl -l

use strict;
use warnings;

while (<DATA>) {
    my @caught = /\{([^}]+)/g;
    next unless @caught;
    print for @caught;
}