From 9c96baeeda85997b321a4d4fbebd5fd51bffb729 Mon Sep 17 00:00:00 2001
From: Lakpa Tashi Bhutia <lakpatashi@users.noreply.github.com>
Date: Sat, 25 Nov 2023 21:01:44 +0530
Subject: Update ch-2.pl version 2 added.

---
 challenge-004/lakpatashi/perl/ch-2.pl | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/challenge-004/lakpatashi/perl/ch-2.pl b/challenge-004/lakpatashi/perl/ch-2.pl
index e9c43aa4cb..013893f9c2 100755
--- a/challenge-004/lakpatashi/perl/ch-2.pl
+++ b/challenge-004/lakpatashi/perl/ch-2.pl
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 
+use v5.10;
 use strict;
 use warnings;
 
@@ -44,3 +45,28 @@ sub buildFreq{	#given a string returns letter freq. hash
 	}
 	return %freq;
 }
+
+
+# ------------- version 2 -----------------------
+sub checkWord {
+    my ($word,$letters) = @_;
+    $word = join '\w*', sort split //, lc $word;
+    $letters = join "", sort split //, lc $letters;
+    my $pattern = $word;
+    if( $letters =~ /$pattern/ ){
+        return 1;
+    }else{
+        return 0;
+    }
+}
+
+my $letters = 'aabceilttxyz';
+open(FH, "inputFile") or die "open inputFile:: $!";
+for my $word (<FH>) {
+    chop $word;
+    if( checkWord($word, $letters) ){
+        say "valid: $word";
+    }else{
+        say "not valid: $word"
+    }
+}
-- 
cgit