$_ = '511111';
print /^(\d)(??{"\\d{$1}"})$/ ? 'yay' : 'oops';