in reply to How to match repeating characters

I don't suppose you happened to look at CPAN? (data::password)