submission by akarelas

1 files changed, 12 insertions, 0 deletions

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";