C:/Perl_524/bin\perl.exe -w d:/tmp/pm/weekly_challenge.pl 
ok 1 - Example 1 $S = "abcde" ;$P = "a*e"
ok 2 - Example 2 $S = "abcde" ;$P = "a*d"
ok 3 - Example 3 $S = "abcde" ;$P = "?b*d"
ok 4 - Example 4 $S = "abcde" ;$P = "a*c?e"
1..4