or download this
C:\Users\perl514\Documents\perl\practice>perl split.pl
...
Use of uninitialized value $eachlinecmd[4] in concatenation (.) or str
+ing at split.pl line 9.
Use of uninitialized value $eachwordcmd[3] in concatenation (.) or str
+ing at split.pl line 10.