#!/usr/bin/perl
#$x=11;
#$x=0;
$x=2;
#pattern for range from 1 to 10;
if ($x=~ m/[1-9]|10/)
{
	print "Correct match";
}
else 
{
	print "incorrect";
}