Select Code to Download

grep " $code$" * | awk -F: '{print $1}'

awk '/^Customer Code.* '$code'$/{print FILENAME; exit}' *

  perl -e '            
    $site=shift;            
...
        close ARGV;      
      }                  
    }' $code

site_list=$(
  perl -e '
...
    }
    $,=" "; print sort(values %system),"\n";
' /etc/uucp/Systems *)