$foo{$1} = $2 if (/(\d+)~<font\s+color="(#[[:xdigit:]]+)">/);