#!/opt/perl5/bin/perl -w
use strict;

while(<DATA>){
  my ($c,$d,$e,$f)=split /\s+/,$_;
  print"$c\t$d\t$e\t$f\n";
}

__DATA__
1     1234    gg123456789  000-12345-1234-111
12    1234    gg123456789  000-12345-1234-111
123   1234    gg123456789  000-12345-1234-111