Select Code to Download

use Test::Simple tests => 14;
use strict;
...
    "lead bytes with 2 sets of bad bytes" );
ok( !mytest( "\x26\x67\x26\x67____\x26\x67" ),
    "lead bytes with 2 sets of bad bytes" );

C:\temp>perl -w regexp.t
1..14
...
ok 12 - lead bytes with 2 sets of bad bytes
ok 13 - lead bytes with 2 sets of bad bytes
ok 14 - lead bytes with 2 sets of bad bytes