#match context free grammar --[0{N}1{N}] (e.g. 01, 0011, 000111, etc.)
$cf = qr/01|0(??{$cf})1/;

$init = "00001111";
print "match\n" if ($init=~m/^$cf$/);