Select Code to Download

for (my $i=0; $i <= $#people; $i++) {
    if($people[$i]{'ident'} =~ /^1[014689]*7[014689]*5[014689]*3[01468
+9]*2[014689]*$/) {
...
          
    }
}