Naudinga Perlo pragma

Kažkaip šiandien varčiausi Perlo dokumentaciją ir aptikau labai
naudingą Perlo pragmą, kuri padeda geriau išsiaiškinti kaip veikia
įpraiškos. Tereikia parašyti use re 'debug'; ir
visas įpraiškų paieškos procesas atsiveria prieš jus ;) Štai pavyzdys:

use re 'debug';
my $f = 'foo';
$a =~ /o+/;

Spausdina:

Compiling REx `o+'
size 4 Got 36 bytes for offset annotations.
first at 2
   1: PLUS(4)
   2:   EXACT <o>(0)
   4: END(0)
anchored `o' at 0 (checking anchored) plus minlen 1
Offsets: [4]
        2[1] 1[1] 0[0] 3[0]
Guessing start of match, REx `o+' against `foo'...
Found anchored substr `o' at offset 1...
Starting position does not contradict /^/m...
Guessed: match at offset 1
Matching REx `o+' against `oo'
  Setting an EVAL scope, savestack=3
   1 <f> <oo>             |  1:  PLUS
                           EXACT <o> can match 2 times out of 
2147483647...
  Setting an EVAL scope, savestack=3
   3 <foo> <>             |  4:    END
Match successful!
Freeing REx: `"o+"'