$_=<>; /^(\w)(\w)(\w)$/; if($1 eq $2 and $2 ne $3){ print "Yes\n"; } else { print "No\n"; }