if($myvar=~/X+/) 
{
 print "ERROR\n";
}