my $D = pack '(.* A*)*', map { $_, "foo" }
            77777, 1234000000, 2345000111 ;
my $p = 0;

{
    $p = index($D, "foo", $p);
    warn "p=$p\n";
    redo if ++$p;
}