...
if( /^1/ ... /^(0.*)/ ) {
    $1 and next;
    print "$_\n";
}
...