#!/usr/bin/perl

while (<STDIN>) {
 $line = $_;
 if ($line =~ /^#/) {
   printf "$line";
 }
 else {
   $new = $line;
   $new =~ s/ /\t/g;
   printf "$new\n";
 }

}

exit 0;
