#check for 257 theough 313

DB<1> @aon = ("100","134","259","290","310","314","330");

DB<2> foreach $n (@aon){print "$n\n" if ($n =~ /[2-3][1|5-9][0-3|7-9]/)};
259
290
310

DB<3> push @aon,"217"  # should fail

DB<4> print join " ",@aon 
100 134 259 290 310 314 330 217

DB<5> foreach $n (@aon){print "$n\n" if ($n =~ /[2-3][1|5-9][0-3|7-9]/)};
259
290
310
217

DB<6>