Select Code to Download

#!/usr/bin/perl -w
use strict;
...
if ($key =~ /^(ID|TITLE|GENE|CYTOBAND|LOCUSLINK|CHROMOSOME|SCOUNT)$/) 
+{
   print "I don't know why this is printing.\n";
}