#!/usr/bin/perl
use strict;
use warnings;
my $names;
my %names;
while(<DATA>){

if(/{(.*)}/){
$names = $1;
print $names;


}
}
__DATA__
{NAME}
{AGE}
{SEX}
{ADDRESS}