while ( $window =~ m/\w{3}\s{1,2}\d{1,2}.*$re.*\n/oigc ) {

##</code><code>##

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