#!/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";
  }