From f3d59ebde11006c172e4da77a9cb8fa7fe6a9e30 Mon Sep 17 00:00:00 2001
From: Nicolas Mendoza <mendoza@pvv.ntnu.no>
Date: Mon, 29 Sep 2025 13:43:57 +0200
Subject: Add some forgotten bits, remove unneeded line

---
 challenge-341/nicolas-mendoza/perl/ch-1.pl | 6 ++++--
 challenge-341/nicolas-mendoza/perl/ch-2.pl | 5 +++++
 2 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/challenge-341/nicolas-mendoza/perl/ch-1.pl b/challenge-341/nicolas-mendoza/perl/ch-1.pl
index 58a8648b3e..f4cd10023e 100644
--- a/challenge-341/nicolas-mendoza/perl/ch-1.pl
+++ b/challenge-341/nicolas-mendoza/perl/ch-1.pl
@@ -1,5 +1,8 @@
 #!/usr/bin/env perl
 
+use strict;
+use warnings;
+
 use Test2::V0;
 use feature qw(signatures);
 
@@ -19,6 +22,5 @@ done_testing;
 
 sub broken_keyboard($in, @broken) {
   my @words = split m{\s+}, $in;
-  my $pat   = "[@broken]";
-  return @broken ? grep { $_ !~ m{$pat}i } @words : @words
+  return @broken ? grep { $_ !~ m{[@broken]}i } @words : @words
 }
diff --git a/challenge-341/nicolas-mendoza/perl/ch-2.pl b/challenge-341/nicolas-mendoza/perl/ch-2.pl
index 784a7ca907..2eedee8dd7 100644
--- a/challenge-341/nicolas-mendoza/perl/ch-2.pl
+++ b/challenge-341/nicolas-mendoza/perl/ch-2.pl
@@ -1,5 +1,8 @@
 #!/usr/bin/env perl
 
+use strict;
+use warnings;
+
 use Test2::V0;
 use feature qw(signatures);
 
@@ -15,6 +18,8 @@ for my $t (sort keys %{ $tests }) {
   is reverse_prefix($t, $tests->{$t}->[0]), $tests->{$t}->[1], "$t => $tests->{$t}->[1]";
 }
 
+done_testing;
+
 sub reverse_prefix($str, $char) {
   $str =~ s{(.*?$char)}{reverse $1}e;
   return $str;
-- 
cgit