#!/usr/local/bin/perl -w -pi.bak
# fixws - trim trailing whitespace and expand tabs in files
# Andrew Ho (andrew@zeuscat.com)

use strict;
use Text::Tabs;

s/\s+$/\n/gsm;
$_ = expand($_);