#!/usr/bin/perl 
 
use strict; 
use Test::More qw(no_plan); 
 
my @good = qw(@asdfERER dfdfddf$$$TTTTT TTT$$ddd ddTT$$ Ax?xxxxxxxxxx Ax>); 
my @bad = qw(testuser1 asdfasdf@ TERERE%^ asdfasdf ERERERE 23344334 asdfasdfERE\ 
ERER *&^^%$%$^); 
 
my $re = '^(?:[A-Z].*[a-z].*\W.*| 
              [A-Z].*\W.*[a-z].*| 
              [a-z].*\W.*[A-Z].*| 
              [a-z].*[A-Z].*\W.*| 
              \W.*[a-z].*[A-Z].*| 
              \W.*[A-Z].*[a-z].*)$'; 
 
 
ok (/$re/ox, "good: $_") for @good; 
ok (!/$re/ox, "bad: $_") for @bad;