tools/untabify

   1 #!/usr/bin/perl
   2 #
   3 # untabify - convert tabs to spaces
   4 #
   5 # $Id: untabify,v 1.1 2000-03-18 05:20:30 bleep Exp $
   6 use Text::Tabs;
   7 $tabstop = 8;
   8 while (<>) { print expand($_) }
   9