Select Code to Download

use strict;
use warnings;
use Data::Dumper ();
...
lookahead/lookbehind, but they don't capture.  Is there a way
to do this with a single regex?  Is a regex even the best way
to do this?  Thanks, -Lee

perl -Mstrict -Mwarnings context.pl is and the have
$matched = [
...
  'a single regex?  [Is] a regex even [the] best way
to do this'
];

\b              # a word boundary
(?!\s)          # following char is not a white space (1)
...
    \b          #    up to the next word boundary
  )
)