my $string1 = abc123ABC;
	
	if( length($string1) > 7 && length($string1) < 17) {
		@string1 = split(//, $string1);
		$counter_zahl = 0;
		$counter_abc = 0;
		for( my $i= 0; $i <= length($string1); $i++) {
			if( @string1[$i] =~ [abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789] || @string1[$i] =~ /!/ || @string1[$i] =~ /\"/ ||
														@string1[$i] =~ /#/ || @string1[$i] =~ /\$/ || @string1[$i] =~ /%/ || @string1[$i] =~ /./) {
				if( @string1[$i] =~ [abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ] ) {
					$counter_abc++;
				}
				if( @string1[$i] =~ [0-9] ) {
					$counter_zahl++;
				}
			}
		}
	if( $counter_zahl > 0 && $counter_abc > 0 ) {
		print "$string1";
	}
	}