#!/usr/bin/perl
 
   
print "What file do you want to \"detabify?\" ";
$file=<>;
chomp $file;
$/=undef;                              
open FILE, "<$file";  
$text=<FILE>;                      
close FILE;
$text=~s/\t/   /g;                    
open FILE, ">$file";
print $text;                           
close FILE;