From dd79f10dfd7f9915b173787349fcb22b3639f81a Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 3 Oct 2022 10:59:37 +0200
Subject: Task 2 plperl done

---
 challenge-185/luca-ferrari/postgresql/ch-2.plperl | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 challenge-185/luca-ferrari/postgresql/ch-2.plperl

diff --git a/challenge-185/luca-ferrari/postgresql/ch-2.plperl b/challenge-185/luca-ferrari/postgresql/ch-2.plperl
new file mode 100644
index 0000000000..162a7c9762
--- /dev/null
+++ b/challenge-185/luca-ferrari/postgresql/ch-2.plperl
@@ -0,0 +1,21 @@
+-- Perl Weekly Challenge 185
+-- Task 2
+
+CREATE SCHEMA IF NOT EXISTS pwc185;
+
+CREATE OR REPLACE FUNCTION
+pwc185.task2_plperl( text )
+RETURNS text
+AS $CODE$
+my ( $input ) = @_;
+my @output;
+my $counter = 4;
+
+for ( split( //, $input ) ) {
+    push @output, 'x' and $counter-- and next if ( /[a-z0-9]/i ) and $counter > 0;
+    push @output, $_;
+}
+
+return join( '', @output );
+$CODE$
+LANGUAGE plperl;
-- 
cgit