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