{  local $/=undef;
   $string = <FILE>; #where FILE has been opened previously
   %colors = $string =~ /(\d+)~<font color="(.*?)"/ig;
}