{
    local $/ = \1;
    while ( <FILE> ) {
        my $window = adjust_window( $_ );
        next if $window ne $search;
        # .... what to do if you find the match
    }
}