if ( my $count = /^1(.*)/../^0(.*)/ and $count !~ /E/ )