use strict; use warnings; open(FILE,") { print "document entity $1\n" if ($_ =~ /(:document.*)/g); print "headline entity $1\n" if ($_ =~ /(:headline.*)/g); } close FILE;