my %sorry;
if ($msg=~/so?r?ry/){
  ++$sorry{"$screenname"};
}