diff --git a/lib/buni.pm b/lib/buni.pm
index d254355..0b06b15 100644
--- a/lib/buni.pm
+++ b/lib/buni.pm
@@ -37,7 +37,7 @@ sub buni {
 		{
 			do {
 				$#a = -1;
-				@a = $p->get_tag("meta");
+				@a = $p->get_tag('meta'); ## no critic (Variables::RequireLocalizedPunctuationVars)
 
 				if (defined $a[0][1]->{property} && $a[0][1]->{property} eq 'og:image') {
 					$ret = sprintf '[buni](%s)', $a[0][1]->{content};
diff --git a/lib/drink.pm b/lib/drink.pm
index 682ad13..734d749 100644
--- a/lib/drink.pm
+++ b/lib/drink.pm
@@ -41,7 +41,7 @@ sub drink {
 
 		do {
 			$#a = -1;
-			@a = $p->get_tag("span");
+			@a = $p->get_tag('span'); ## no critic (Variables::RequireLocalizedPunctuationVars)
 
 			if ($#{$a[0]} > 2 && defined $a[0][1]->{itemprop} && $a[0][1]->{itemprop} eq 'text') {
 				push @holyday,'* ' . decode ('UTF-8', $p->get_trimmed_text ('/span'));
diff --git a/lib/monkeyuser.pm b/lib/monkeyuser.pm
index 7eb710f..56fafdf 100644
--- a/lib/monkeyuser.pm
+++ b/lib/monkeyuser.pm
@@ -37,11 +37,11 @@ sub monkeyuser {
 
 		do {
 			$#a = -1;
-			@a = $p->get_tag("a");
+			@a = $p->get_tag('a'); ## no critic (Variables::RequireLocalizedPunctuationVars)
 
 			if (defined $a[0][1]->{class} && $a[0][1]->{class} eq 'lazyload small-image') {
-				if (defined $a[0][1]->{"data-src"} && ($a[0][1]->{"data-src"} !~ /adlitteram/)) {
-					push @link, $a[0][1]->{"data-src"};
+				if (defined $a[0][1]->{'data-src'} && ($a[0][1]->{'data-src'} !~ /adlitteram/)) {
+					push @link, $a[0][1]->{'data-src'};
 				}
 			}
 
diff --git a/lib/weather.pm b/lib/weather.pm
index d010df6..72f28ed 100644
--- a/lib/weather.pm
+++ b/lib/weather.pm
@@ -34,7 +34,8 @@ sub weather {
 
 	if ($w) {
 		if ($w->{temperature_min} == $w->{temperature_max}) {
-			$reply = sprintf ("Погода в городе %s, %s:\n%s, ветер %s %s м/c, температура %s°C, ощущается как %s°C, относительная влажность %s%%, давление %s мм.рт.с",
+			$reply = sprintf (
+				"Погода в городе %s, %s:\n%s, ветер %s %s м/c, температура %s°C, ощущается как %s°C, относительная влажность %s%%, давление %s мм.рт.с",
 				$w->{name},
 				$w->{country},
 				ucfirst $w->{description},
@@ -46,7 +47,8 @@ sub weather {
 				$w->{pressure}
 			);
 		} else {
-			$reply = sprintf ("Погода в городе %s, %s:\n%s, ветер %s %s м/c, температура %s-%s°C, ощущается как %s°C, относительная влажность %s%%, давление %s мм.рт.ст",
+			$reply = sprintf (
+				"Погода в городе %s, %s:\n%s, ветер %s %s м/c, температура %s-%s°C, ощущается как %s°C, относительная влажность %s%%, давление %s мм.рт.ст",
 				$w->{name},
 				$w->{country},
 				ucfirst $w->{description},