From 5170ec2070b5df1df0bf76e176d0a52f794bf8eb Mon Sep 17 00:00:00 2001
From: Kai Burgdorf <k@iburgdorf.de>
Date: Thu, 19 Aug 2021 21:15:13 +0200
Subject: challenge 1 solved

---
 challenge-126/kai-burgdorf/perl/ch-1.pl | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100755 challenge-126/kai-burgdorf/perl/ch-1.pl

diff --git a/challenge-126/kai-burgdorf/perl/ch-1.pl b/challenge-126/kai-burgdorf/perl/ch-1.pl
new file mode 100755
index 0000000000..122ffd08ae
--- /dev/null
+++ b/challenge-126/kai-burgdorf/perl/ch-1.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/env perl
+
+use utf8;
+use strict;
+use warnings;
+
+
+my $N = 25;
+my $count = 0;
+
+for(2..$N) { $count++ if ( "$_" !~ m/1/ ); }
+print "Input: $N\nOutput:\n\t$count\n";
-- 
cgit