Select Code to Download

$window_size--;
my( $windowed_text )= $text_body =~
    /^\s*(?:\S+\s+){$window_start}(\S+(?:(\s+\S+){0,$window_size})/;