Ich würde es so schreiben (ungetestet):
perl -len 'print $1 if /^\s*key\s+=\s+([A-Z0-9]{4})\b/'