r/bin/perl
use v5.12;
use warnings;

##  9/26/19    
##  Program uses named captures instead of $1


       chomp(my $text = <STDIN>);
       while (<>) {                   # take one input line at a time
         chomp;
         if ( $text =~ m/((?<word1>\b\w*a\b))(?<word2>\s+++++))/) {
            print "Matched: |$`<$&>$'|\n";  # the special match vars
            print " 'word' contains '$+{word1} $+<word2>'\n";
         } else {
              print "No match: |$_|\n";
         } 

##</code><code>##

Nested quantifiers in regex; marked by <-- HERE in m/((?<word1>\b\w*a\b))(?<word2>\s+++ <-- HERE ++))/ at ./Chapter8_Exer5 line 12