if ($msg =~ /^so?r?ry/)
 {
     if (! -e "emotions/$victim.emo") 
     {
          open (DATA, ">emotions/$victim.emo");
          print DATA "1\n";
          close (DATA);
     }
     else
     {
          open (FILE, "+>emotions/$victim.emo");
          chomp($emo = <FILE>);
          seek(FILE, 0, 0);
          print FILE ++$emo, "\n";
          close(FILE);
          return "it's OK.";
     }
}