Select Code to Download

my $password = 'a8f3%djk$'; # some random string
if ($password =~ m/[[:alpha:]]{3,}|\d{3,}|[\^@\(]{3,}/)
{
  # regenerate password
}