Select Code to Download

  DB<3> print "aaa" =~ /(a+){1}+a/
aa
...
aa
  DB<5> print $]
5.020002

  DB<1> print "aaa" =~ /(a+){1}+a/

...
aa
  DB<3> print $]
5.014002

lanx@lanx-1005HA:~$ perl -Mre=debug -e' print "aaa" =~ /(a+){1}+a/ '
Compiling REx "(a+){1}+a"
Final program:
...
   3 <aaa> <>                | 14:        END(0)
Match successful!
aaFreeing REx: "(a+){1}+a"

lanx@lanx-1005HA:~$ perl -Mre=debug -e' print "aaa" =~ /(a+){1}+a/ '
Compiling REx "(a+){1}+a"
...
                                  failed...
Match failed
Freeing REx: "(a+){1}+a"