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


##</code><code>##


#!/usr/bin/perl
$fn = "/home/t8.g";
open FP, "$fn" or die "Error in write:$!";
while (<FP>) {
    my @caught = /\{([^}]+)/g;
    next unless @caught;
    say for @caught;
    print @caught, "\n";
}

##</code><code>##

dummy_core/pads/hdmi_tx_1
dummy_core/pads/hdmi_tx_2
dummy_core/pads/hdmi_tx_3
dummycore/pads/hdmi_tx_4
dummy_core/pads/IO_vdd_right25
dummy_core/pads/IO_gnd_right2dummy_core/pads/dummy_dig22
dummy_core/pads/dummy_dig23
dummy_core/pads/comp_pad1
dummy_core/pad/CORE_vdd1