DB<5> $c = "The quick brown fox jumps over the lazy dog.";

  DB<6> print $1 if $c =~ /.+ (\w+) /;
lazy
  DB<7>

##</code><code>##

  DB<8> print $1 if $c =~ /[^ ]+ (\w+) /;
quick
  DB<9> print $1 if $c =~ /\w+ (\w+) /;
quick
  DB<10> print $1 if $c =~ /\S+ (\w+) /;
quick
  DB<11> print $1 if $c =~ /.+? (\w+) /;
quick
  DB<21>