Good but seems not easily readable to me.

In that case, use a shorter string, associate the numbers from "Final program" against those on the right side , like 1: OPEN1 (3) 

$ perl -Mre=debug -le " q/a a/ =~ /(.\b)\1/ "
Compiling REx "(.\b)\1"
Final program:
   1: OPEN1 (3)
   3:   REG_ANY (4)
   4:   BOUND (5)
   5: CLOSE1 (7)
   7: REF1 (9)
   9: END (0)
minlen 1
Matching REx "(.\b)\1" against "a a"
   0 <> <a a>                |  1:OPEN1(3)
   0 <> <a a>                |  3:REG_ANY(4)
   1 <a> < a>                |  4:BOUND(5)
   1 <a> < a>                |  5:CLOSE1(7)
   1 <a> < a>                |  7:REF1(9)
                                  failed...
   1 <a> < a>                |  1:OPEN1(3)
   1 <a> < a>                |  3:REG_ANY(4)
   2 <a > <a>                |  4:BOUND(5)
   2 <a > <a>                |  5:CLOSE1(7)
   2 <a > <a>                |  7:REF1(9)
                                  failed...
   2 <a > <a>                |  1:OPEN1(3)
   2 <a > <a>                |  3:REG_ANY(4)
   3 <a a> <>                |  4:BOUND(5)
   3 <a a> <>                |  5:CLOSE1(7)
   3 <a a> <>                |  7:REF1(9)
                                  failed...
   3 <a a> <>                |  1:OPEN1(3)
   3 <a a> <>                |  3:REG_ANY(4)
                                  failed...
Match failed
Freeing REx: "(.\b)\1"

[download]

Compare against a simpler pattern like 

$ perl -Mre=debug -le " q/aa/ =~ /a\b/ "
Compiling REx "a\b"
Final program:
   1: EXACT <a> (3)
   3: BOUND (4)
   4: END (0)
anchored "a" at 0 (checking anchored) minlen 1
Guessing start of match in sv for REx "a\b" against "aa"
Found anchored substr "a" at offset 0...
Guessed: match at offset 0
Matching REx "a\b" against "aa"
   0 <> <aa>                 |  1:EXACT <a>(3)
   1 <a> <a>                 |  3:BOUND(4)
                                  failed...
   1 <a> <a>                 |  1:EXACT <a>(3)
   2 <aa> <>                 |  3:BOUND(4)
   2 <aa> <>                 |  4:END(0)
Match successful!
Freeing REx: "a\b"

[download]

Then check the definition of \b in perlre#Assertions, perlrequick

Perl defines the following zero-width assertions: The word anchor \b matches a boundary between a word character and a non-word character \w\W or \W\w 
     $x = "Housecat catenates house and cat";
    $x =~ /\bcat/; # matches cat in 'catenates'
    $x =~ /cat\b/; # matches cat in 'housecat'
    $x =~ /\bcat\b/; # matches 'cat' at end of string

[download]

Basically your pattern can never match, just like this perl -Mre=debug -le " q/aa/ =~ /a\ba/ "

there can never be a word boundary within a word by definition

In reply to Re^3: about word boundary in RE (use re 'debug') by Anonymous Monk
in thread about word boundary in RE by anaconda_wly

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.