Select Code to Download

  my ($key_part) = ($record =~ /$foo/)
    or warn "***WARNING: input record <$record> doesn't match $foo\n";