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

##</code><code>##

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

##</code><code>##

  perl -e '            
    $site=shift;            
    opendir DIR, ".";
    @ARGV = readdir DIR;  
    closedir DIR;
    while(<>) {
      if (/^Customer Code.* (\w+)$/) {        
        print("$ARGV\n"),exit if $site eq $1; 
        close ARGV;      
      }                  
    }' $code                

##</code><code>##

site_list=$(
  perl -e '
    while (<>) {
      if ($ARGV eq "/etc/uucp/Systems") {
        $system{$1} = undef if /^(\w+)/;
        next;
      }
      close ARGV, next unless exists $system{$_};
      $system{$ARGV} = $1, close ARGV if /^Customer Code.*\s(\w+)\s*$/;
    }
    $,=" "; print sort(values %system),"\n";
' /etc/uucp/Systems *)