my $eingabe = open(FILE,"input.txt");
if(not defined($eingabe)) {
	die "Fehler beim ¨ Offnen der Datei: $!\n";
}
my $ausgabe = open(FILE_OUT,">> output.txt");
if(not defined($ausgabe)) {
	die "Fehler beim ¨ Schreiben der Datei: $!\n";
}

while(defined(my $line = <FILE>)) { 
	@start = split(/:/, $line);
	$word = @start[1];
	
        if ( _is_valid_string( $word ) ) {
            print FILE_OUT "$word is OK\n";
        }
        else {
            print "$word is not OK\n";
        }


} 

print "\n\n";
close(FILE);
close(FILE_OUT);
system("pause");



sub _is_valid_string {
		my $string = shift;
        my $valid = 'a-zA-Z0-9!"$%.';
        return 0 if length $string < 7;
        return 0 if length $string > 16;
        return 0 if $string =~ m/[^$valid]/;
        return 0 if $string !~ m/[a-zA-Z]/;
        return 0 if $string !~ m/\d/;
        return 1;
}