while(<IN>){
  my ( $k, $v ) = split /\s*:\s*/, $_, 2;
  ...
}