while ( $window =~ m/$re/oigcs ) { &$callback($1); }