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