#!/bin/sh

thecwd=`pwd`

Folder[1]="mex"
Folder[2]="sbvar/var"
Folder[3]="sbvar/switching"
Folder[4]="utilities/TZCcode"
Folder[5]="utilities/DWCcode/arrays"
Folder[6]="utilities/DWCcode/ascii"
Folder[7]="utilities/DWCcode/error"
Folder[8]="utilities/DWCcode/matrix"
Folder[9]="utilities/DWCcode/sort"
Folder[10]="utilities/DWCcode/spherical"
Folder[11]="utilities/DWCcode/stat"

for (( index = 1; index <= 11; index++ ))
do
    cd $thecwd/${Folder[index]}
    for file in *
    do
        perl -pi -e 's/[\t ]*$//g' $file
    done
done