Shell method to clean up source code

gistfile1.txt

# Clean up source code by converting tabs to 2 spaces, Windows newlines to
# unix ones, and by stripping away trailing whitespace. Pass in a list of
# files to clean, or let ack find a list of suitable candidates.
clean() {
  if [ $1 ]; then
    files=$@
  else
    files=`ack " +$|\t|\r" -l`
  fi
  echo $files|xargs perl -pi -e "s/\r\n?/\n/g;s/\t/  /g;s/[ ]*$//g"
}