Select Code to Download

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

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

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