or download this
>c:\progs\perl588\bin\perl 730963.pl
Line has 6 words. 'This is some space separated text'
...
Argument "5," isn't numeric in numeric eq (==) at !.pl line 25.
Argument "6," isn't numeric in numeric eq (==) at !.pl line 25.
2, 3, 4, 5 - So-you-can-see-what-happens