Help for this page
perl -e ' $site = shift; for $f (@ARGV) { ... / \Q$site\E$/ && (print("$f\n"), last); } ' $code *
for ALIAS in * ; do [ "`sed 's/^Customer Code[^ ]* //; t done; d; : done; q' "$ALIAS"` +" = "$code" ] && break done echo "$ALIAS"