$string = "A Perl among Camels";
$string =~ /(((\w+) (\w+)) ((\w+) (\w+)))/g;
print 
"1 is '$1'\n
2 is '$2'\n
3 is '$3'\n
4 is '$4'\n
5 is '$5'\n
6 is '$6'\n
7 is '$7'\n";

##</code><code>##

1 is 'A Perl among Camels'

2 is 'A Perl'

3 is 'A'

4 is 'Perl'

5 is 'among Camels'

6 is 'among'

7 is 'Camels'