Select Code to Download

my %patt1;
my $key = "<date>([A-Z&;][a-z&;]+), ([0-9]{2}) ([0-9]{4})</date>";
...
      print "match1: $instr\n";
    }
}