map
{
   my($keys,$value)=split /\s*:\s*/,$_;
   $keys=~ s/\s//g;
   $info{$keys} = $value;
}split /\n/, $record;

#Don't use map when you mean foreach (or for)
foreach (split /\n/, $record)
{
  ....
}