my @test_numbers = qw(1 2 5 8 10 12 14 56);

foreach my $test_number (@test_numbers) {
	if( $test_number =~ /^\d{2}$/){
	    if($test_number <= 10){
	           print "$test_number\n";
		}
	}
}

##</code><code>##

foreach my $test_number (@test_numbers) {
	if( $test_number =~ /^\d{1,2}$/ and $test_number <= 10){
		print "$test_number\n";
	}
}
__OUTPUT__
1
2
5
8
10