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