$file=$_;
while(<F1>)
{
$file =~ /<([^>].+)>/g;
die "Incorrect entry $1\n" unless grep { $_ eq $1 } @tags;
}

##</code><code>##

Incorrect entry <ct>Defining Marketing for the 21st Century