Shell Programming and Scripting

#!/usr/bin/perl

while(<>)
{
   my $line = $_;
   chop($line);
   (@text) = split(/\s+/,$line);
   print "Line='$line'\n";
   print "\$#text=$#text\n";
   print "\$text[\$#text]]='$text[$#text]'\n";
   foreach (0..$#text) { print "\$text[$_]='$text[$_]'\n"; }
}

something somsething somsething something4 somethingxxxxxxxxxxxxx
          something somsething somsething something4 somethingxxxxxxxxxxxxx

Line='something somsething somsething something4 somethingxxxxxxxxxxxxx'
$#text=4
$text[$#text]]='somethingxxxxxxxxxxxxx'
$text[0]='something'
$text[1]='somsething'
$text[2]='somsething'
$text[3]='something4'
$text[4]='somethingxxxxxxxxxxxxx'
Line='          something somsething somsething something4 somethingxxxxxxxxxxxxx'
$#text=5
$text[$#text]]='somethingxxxxxxxxxxxxx'
$text[0]=''
$text[1]='something'
$text[2]='somsething'
$text[3]='somsething'
$text[4]='something4'
$text[5]='somethingxxxxxxxxxxxxx'