perl -e '
    $site = shift;
    for $f (@ARGV) {
        local @ARGV = $f;
        /^Customer Code/ && last while <>;
        / \Q$site\E$/ && (print("$f\n"), last);
    }
' $code *

##</code><code>##

sed 's/^Customer Code[^ ] //; t done; d; : done; q;' FILE

##</code><code>##

for ALIAS in * ; do
    [ "`sed 's/^Customer Code[^ ]* //; t done; d; : done; q' "$ALIAS"`" = "$code" ] && break
done
echo "$ALIAS"

##</code><code>##

cut -d: -f1