my @aap = qw( 0aap 0noot 1mies 2mies 0aap 0noot 1mies 6mies );
foreach (@aap) {
        if (/^1(.*)/ .. (my $last = /^0(.*)/ )) {
                unless($last) { 
                        print "$1\n";
                }
        }
}