Merge pull request #13168 from mattmartini/branch-for-challenge-316

Solutions for challenge 316

Author: manwar

challenge-316/matt-martini/README

@@ -0,0 +1 @@
+Solutions by Matt Martini

challenge-316/matt-martini/perl/ch-2.pl

@@ -0,0 +1,23 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+# my $str1 = "uvw";
+# my $str2 = "bcudvew";
+
+# my $str1 = "aec";
+# my $str2 = "abcde";
+
+my $str1 = "sip";
+my $str2 = "javascript";
+
+my $str1_prere = join( '.*', unpack( "(a)*", $str1 ) );
+my $str1_re    = qr<$str1_prere>;
+
+if ( $str2 =~ $str1_re ) {
+    print "true\n";
+}
+else {
+    print "false\n";
+}