Task 1 done

1 files changed, 11 insertions, 0 deletions

diff --git a/challenge-185/luca-ferrari/raku/ch-1.p6 b/challenge-185/luca-ferrari/raku/ch-1.p6
new file mode 100755
index 0000000000..aa73c5563a
--- /dev/null
+++ b/challenge-185/luca-ferrari/raku/ch-1.p6
@@ -0,0 +1,11 @@
+#!raku
+
+# Perl Weekly Challenge 185
+
+sub MAIN( Str $input-mac-address
+          where { $input-mac-address ~~ / ^ ( <[0..9a..f]> ** 4 <[.]> ) ** 2  <[0..9a..f]> ** 4 $ / } ) {
+
+    my $output-mac-address = $input-mac-address.subst( /<[.]>/, '', :g );
+    $output-mac-address.comb( :spit-empty ).rotor( 2 ).join( ':' ).subst( /\s+/, '', :g ).say;
+
+}