if ($reply !~ /^perfect/i and $reply !~ /perfect$/i) {
    $chatReply->{'correction'} = $reply;
}