Select Code to Download

my $file = $_;
my @tags=(qw(kt bold ital ch([^>]*)));
my %allowed_tag = map { $_ => 1 } @tags;
...
   my $tag = $1;
   die "Invalid element $tag in $.. Cannot proceed due to the above er
+ror\n"
unless exists $allowed_tag{$tag};