while ( $window =~ m/\w\w\w\s\s?\d\d?.*$re.*\n/iogc ) {