$v1 = <>; $v1 =~ /(\d+)\.(\d+)\.(\d+)/; $a1 = $1; $b1 = $2; $c1 = $3; $v2 = <>; $v2 =~ /(\d+)\.(\d+)\.(\d+)/; $a2 = $1; $b2 = $2; $c2 = $3; if($a2 < $a1 || ($a2 == $a1 && $b2 < $b1) || ($a2 == $a1 && $b2 == $b1 && $c2 <= $c1)){ print "YES\n"; }else{ print "NO\n"; }