From 9e9bb92d4b8dca13c73b28ea23d861e32d975839 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 3 Oct 2022 10:56:21 +0200
Subject: Task 1 plperl done

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

diff --git a/challenge-185/luca-ferrari/postgresql/ch-1.plperl b/challenge-185/luca-ferrari/postgresql/ch-1.plperl
new file mode 100644
index 0000000000..9c4ca45b8e
--- /dev/null
+++ b/challenge-185/luca-ferrari/postgresql/ch-1.plperl
@@ -0,0 +1,23 @@
+-- Perl Weekly Challenge 185
+-- Task 1
+
+CREATE SCHEMA IF NOT EXISTS pwc185;
+
+CREATE OR REPLACE FUNCTION
+pwc185.task1_plperl( text )
+RETURNS text
+AS $CODE$
+my ( $input ) = @_;
+
+$input =~ s/\./g/;
+
+my ( $counter, $output ) = ( 1, '' );
+for ( split( //, $input ) ) {
+    $output .= $_;
+    $output .= ':' if $counter % 2 == 0;
+    $counter++;
+}
+
+return $output;
+$CODE$
+LANGUAGE plperl;
-- 
cgit