if (/^\{(.*)\}$/) {
$tag = $1;
print "The tag is $tag\n";
}
####
while (/\{(.*?)\}/g) {
$tag = $1;
print "The tag is $tag\n";
}
####
The tag is SOURCETAG
The tag is DATE
The tag is EDITION
The tag is HEADLINE
The tag is SOURCE
The tag is LINE
The tag is TTL