in reply to Regex Match for 3 repeated word characters
print "bad monkey!" if $pass =~ /(.)\1\1/; [download]
Time flies like an arrow, fruit flies like banannas