#!/usr/bin/perl -pi s/\t/\s\s\s\s/;