Select Code to Download

foreach (keys %data)
{
...
  print "$_\n";
}

foreach (keys %data)
{
...
       || $_ =~ m/and/;
  print "$_\n";
}