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

##</code><code>##

if ( -( /^1(.*)/../^0(.*)/ ) )

##</code><code>##

if ( ( /^1(.*)/../^0(.*)/ ) =~ /^\d+$/ )