#!/usr/bin/perl # your code goes here if("1x1" =~ m/(\d)x(\d)(?(?{$1 > $2})(?!))/){ print "yes"; }else{ print "no"; }