die "Usage: perl s2t.pl <input file> <output file>\n\n" if (@ARGV < 2);

open(FILE,"$ARGV[0]");
@data = <FILE>;
close(FILE);

open(FILE,">$ARGV[1]");

foreach (@data) {
  $_ =~ s/[ ]{4}/\t/ig;
  print FILE $_;
}
close(FILE);