Help for this page

Select Code to Download

Select or download this

[~] $ perl -Mre=debug -we'$_ = "abbaba"; /(.).*?\1/'
Freeing REx: `,'
Compiling REx `(.).*?\1'
...
   4 <abba> <ba>          | 11:    END
Match successful!
Freeing REx: `(.).*?\1'