perl -e '$/= undef; while (<>) { print $1 if /(?<='$table'\[\])\s*=\s*{\n(([^}].*\n)+)/m }' \
| awk '/{ (US)?"/ {print $2}' \
| awk -F\" '{print $2}' \
perl -e '$/= undef; while (<>) { print $1 if /(?<='$table'\[\])\s*=\s*{\n(([^}].*\n)+)/m }' \
| awk '/{ (US)?"/ {print $2}' \
| awk -F\" '{print $2}' \