$key = $1 if /^ID=(.)/;

##</code><code>##

$key = $1 if /^ID=([^\s]+)/;