my ($thing) = $input =~ /\bfoo(.*?)bar\b/;