#!/usr/bin/env perl

use 5.010;
use strict;
use warnings;

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

__DATA__
...................
...................
<CMD> windowSelect 444.235666.5542.2656565.1255
<CMD> spaceObject -fixSide bottom -space 0
Spacing instances ...
Adding vertical channel spacing of 0.0000um between the following
   selected instances/modules:
    {dupe_core/pads/tran_w_1}
    {dupe_core/pads/tran_w_1}
    {dupe_core/pads/htran_d_13}
    {dupe_core/pads/rec_p_14}
    {dup/pads/VDD_ight1}  {dup/pa/GND_g}   
        {dummy_core/pads/dummy_dig22}
    {dupe_core/pads/dummy_dig23}
    {dupe_core/pads/comp_pad1}
    {dupe_core/pad/CORE_vdd1}
<CMD> deselectAll
<CMD> selectInst dummy_core/pads/IO_gnd_right18
<CMD> selectInst dummy_core/pads/IO_vdd_right18
<CMD> uiSetTool move5
..............
...............
....................

##</code><code>##

$ pm_brace_extract.pl
dupe_core/pads/tran_w_1
dupe_core/pads/tran_w_1
dupe_core/pads/htran_d_13
dupe_core/pads/rec_p_14
dup/pads/VDD_ight1
dup/pa/GND_g
dummy_core/pads/dummy_dig22
dupe_core/pads/dummy_dig23
dupe_core/pads/comp_pad1
dupe_core/pad/CORE_vdd1