$_ = '511111';
print if /^(\d)\d{\1}$/;