my $password = <STDIN>;
my $lengthOfPassword = length $password;

given ($lengthOfPassword) {
	when ($_ >= 8 && $_ <= 11) 
	{
		if ($password =~ /[a-z]/ && 
			$password =~ /[A-Z]/ && 
			$password =~ /[0-9]/ &&
			($password =~ /[\x21-\x2F]/ || 
				$password =~ /[\x3A-\x40]/ || 
				$password =~ /[\x5B-\x60]/ || 
				$password =~ /[\x7B-\x7E]/)) {
			say "Successful password";
		} else {
			invalidPasswordError();
		}
	}
	when ($_ >= 12 && $_ <= 15) {
		if ($password =~ /[a-z]/ && 
			$password =~ /[A-Z]/ && 
			$password =~ /[0-9]/) {
			say "Successful password";
		} else {
			invalidPasswordError();
		}
	}
	when ($_ >= 16 && $_ <= 19) {
		if ($password =~ /[a-z]/ && $password =~ /[A-Z]/) {
			say "Successful password";
		} else {
			invalidPasswordError();
		}
	}
	when ($_ >= 20) {
		say "Successful password";
	}
	default 
	{
		lengthPasswordError();
	}
}