Select Code to Download

$string = "A Perl among Camels";
$string =~ /(((\w+) (\w+)) ((\w+) (\w+)))/g;
...
5 is '$5'\n
6 is '$6'\n
7 is '$7'\n";

1 is 'A Perl among Camels'

...
6 is 'among'

7 is 'Camels'