perl -lan -e 'if(/^(\s*)key\s+=\s([A-Z0-9]{4})\b/i) {print "$F[2]" }'