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