Create perl_regex_subpatterns.pl

extracting the subpatterns in a string.