Shell Programming and Scripting

perl -e ' while (<>) { chomp; my @arr = split(/ /); foreach (@arr) { print "$_\n" } }'  filename

echo "Hi there,  I am a sentence." | awk '{ for(i=1; i <= NF; i++) {print $i } }'

#/bin/ksh
splitit()
{
      set -A arr  $*
      let i=0
      while [[ $i -lt ${#arr[*]} ]]
      do    
             echo ${arr[i]}
             let i=$i+1
      done 
}
splitit hi there I am a sentence.

mStr='Today is Monday, August 06 2007'
for mEach in $mStr
do
  echo 'Each = '$mEach
done