note
tybalt89
<code>
#!/usr/bin/perl -l
# http://perlmonks.org/?node_id=1173584
use strict;
use warnings;
my $password ="asdf";
my $sequences = "qwertyuiop\nasdfghjkl\nzxcvbnm";
if( "$password\0$sequences" =~ /(.{3}).*\0.*\1/s )
{
print 'no sequences allowed!';
}
else
{
print "password is okay";
}
</code>
1173584
1173584