if (! -e "emotions/$victim.emo") {
    open (DATA, ">emotions/$victim.emo");
    print DATA "0";
    close (DATA);
    }

if ($msg =~ /^sorry/ || $msg =~ /^srry/ || $msg =~ /^sry/)
    {open (FILE, ">emotions/$victim.emo");
     $emo = <FILE>;
     print DATA "$emo ++ 1";
     close(FILE);
     return "it's OK.";
    }