From 4c831bb59db3ee9b9d9d5a8ec504d3692cc916d1 Mon Sep 17 00:00:00 2001
From: Alexander Karelas <karjala@cpan.org>
Date: Wed, 31 Jul 2024 20:08:27 +0000
Subject: added ch-2.pl to akarelas

---
 challenge-280/alexander-karelas/perl/ch-2.pl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100755 challenge-280/alexander-karelas/perl/ch-2.pl

diff --git a/challenge-280/alexander-karelas/perl/ch-2.pl b/challenge-280/alexander-karelas/perl/ch-2.pl
new file mode 100755
index 0000000000..2788ae1f71
--- /dev/null
+++ b/challenge-280/alexander-karelas/perl/ch-2.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/env perl
+
+use v5.40;
+
+use Test::More;
+
+sub do_it ($str) {
+    $str =~ s/\|.*?\|//sg;
+    return scalar(() = $str =~ /\*/g);
+}
+
+is do_it("p|*e*rl|w**e|*ekly|"), 2, 'Example 1';
+is do_it("perl"), 0, 'Example 2';
+is do_it("th|ewe|e**|k|l***ych|alleng|e"), 5, 'Example 3';
+
+done_testing;
-- 
cgit