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