diff --git a/lib/BotLib.pm b/lib/BotLib.pm
index 9d19c2e..fc3f35b 100644
--- a/lib/BotLib.pm
+++ b/lib/BotLib.pm
@@ -73,7 +73,7 @@ sub Command {
 		$reply = 'Шта?';
 	} elsif (substr ($text, 1) eq 'coin' || substr ($text, 1) eq 'монетка') {
 		if (rand (101) < 0.016) {
-			$reply = "ребро";
+			$reply = 'ребро';
 		} else {
 			if (irand (2) == 0) {
 				if (irand (2) == 0) {
@@ -90,7 +90,7 @@ sub Command {
 			}
 		}
 	} elsif (substr ($text, 1) eq 'roll' || substr ($text, 1) eq 'dice' || substr ($text, 1) eq 'кости') {
-		$reply = sprintf "На первой кости выпало %d, а на второй — %d.", irand (6) + 1, irand (6) + 1;
+		$reply = sprintf 'На первой кости выпало %d, а на второй — %d.', irand (6) + 1, irand (6) + 1;
 	} elsif (substr ($text, 1) eq 'ver' || substr ($text, 1) eq 'version' || substr ($text, 1) eq 'версия') {
 		$reply = 'Версия:  Нуль.Чего-то_там.Чего-то_там';
 	} elsif (substr ($text, 1) eq 'anek' || substr ($text, 1) eq 'анек' || substr ($text, 1) eq 'анекдот') {
@@ -239,7 +239,7 @@ sub Command {
 			'Нет, я не буду поднимать вам плазму.',
 			'Повторяйте эту мантру по утрам не менее 5 раз: "Плазма не падает." И, возможно, она перестанет у вас падать.',
 			'Плазма не падает, она просто выходит отдохнуть.',
-			'Плазма это не агрегатное состояние, это суперпозиция. Во время работы она находится сразу в жидком, мягком и тёплом состояниях.'
+			'Плазма это не агрегатное состояние, это суперпозиция. Во время работы она находится сразу в жидком, мягком и тёплом состояниях.',
 		);
 
 		$reply = $phrases[irand ($#phrases + 1)];
diff --git a/lib/BotLib/Archeologist.pm b/lib/BotLib/Archeologist.pm
index 7d4983a..7c96713 100644
--- a/lib/BotLib/Archeologist.pm
+++ b/lib/BotLib/Archeologist.pm
@@ -90,7 +90,7 @@ sub Dig {
 	}
 
 	my $phrase = sprintf "Вы начали раскопки %s и усиленно роете лопатами, экскаватором...\n", $location[irand ($#location + 1)];
-	$phrase .= "Вам кажется что ваш совочек ударился обо что-то твердое. Может, это клад?!\n\n";
+	$phrase .= "Вам кажется, что ваш совочек ударился обо что-то твердое. Может, это клад?!\n\n";
 	my $artifact = getRandomArtifact();
 
 	if ($success_probability <= 25) {
diff --git a/lib/BotLib/Image.pm b/lib/BotLib/Image.pm
index 47afecd..b2563dc 100644
--- a/lib/BotLib/Image.pm
+++ b/lib/BotLib/Image.pm
@@ -158,7 +158,7 @@ sub Obutts {
 	return $ret;
 }
 
-# It works but results are not particulary relevant, partially. about 20-30% miss
+# It works but results are not particularly relevant, partially. about 20-30% miss
 # So i prefer to use flickr rabbits selection :)
 sub rabbit_imgur {
 	my @terms = (
diff --git a/lib/BotLib/Image/Imgur.pm b/lib/BotLib/Image/Imgur.pm
index 958a512..9a23772 100644
--- a/lib/BotLib/Image/Imgur.pm
+++ b/lib/BotLib/Image/Imgur.pm
@@ -76,7 +76,7 @@ sub Imgur {
 			$refresh_url => form {
 				refresh_token => $imgur_refresh_token,
 				client_id => $imgur_client_id,
-				clinent_secret => $imgur_client_secret,
+				client_secret => $imgur_client_secret,
 				grant_type => 'refresh_token',
 			}
 		);
diff --git a/lib/TelegramBot.pm b/lib/TelegramBot.pm
index 8a84344..1455f66 100644
--- a/lib/TelegramBot.pm
+++ b/lib/TelegramBot.pm
@@ -5,13 +5,12 @@ use 5.018;
 use strict;
 use warnings;
 use utf8;
-use Data::Dumper;
 use open qw (:std :utf8);
 use English qw ( -no_match_vars );
 use Carp qw (cluck carp);
 use File::Path qw (make_path);
 use Hailo;
-use Log::Any qw($log);
+use Log::Any qw ($log);
 use Math::Random::Secure qw (irand);
 use Mojo::Base 'Teapot::Bot::Brain';
 use BotLib::Admin qw (FortuneToggleList);
@@ -120,7 +119,7 @@ sub __on_msg {
 			'Дарована',
 			'Доброе утро, день или вечер',
 			'Добро пожаловать в наше скромное коммунити',
-			'Наше вам с кисточкой тут, на канальчике'
+			'Наше вам с кисточкой тут, на канальчике',
 		);
 
 		foreach my $member (@{$msg->new_chat_members}) {