#!/usr/bin/perl -pi
BEGIN {use Text::Tabs; $tabstop = 4;}
$_ = expand($_);