Select Code to Download

#! perl -slw
use strict;
...
abcdbca
abcba
abcdabe

P:\test>test3
'abcdbca'failed
'abcba'failed
'abcdabe' passed

my $re = qr[
    (.) (?=(.)(.))
...
        )
    .* $)
]x;