From 2a4876e69d7481cf262b09a2508a4f623840f55a Mon Sep 17 00:00:00 2001
From: Alexander Karelas <karjala@cpan.org>
Date: Mon, 9 Sep 2024 08:08:27 +0000
Subject: submission by akarelas

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

diff --git a/challenge-286/alexander-karelas/perl/ch-1.pl b/challenge-286/alexander-karelas/perl/ch-1.pl
new file mode 100755
index 0000000000..7d3eb00e86
--- /dev/null
+++ b/challenge-286/alexander-karelas/perl/ch-1.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+open my $fh, '<', $0 or die "Couldn't open file $0 for reading: $!";
+my $content = do { local $/; <$fh> };
+close $fh;
+
+my @words = $content =~ /(\S+)/g;
+
+print $words[rand @words], "\n";
-- 
cgit