#!/bin/perl
open(F,"momo");
open(Fout,">kims.out");
print Fout "#!/bin/perl\n";
$flag = 0;
while(<F>){
	if($flag!=0){		
		$ss = $_;
		chop($ss);
		$ss =~ s/\t//eg;
		
		print Fout $ss;
	}else{
		$flag=1;
	}
}
close(Fout);
close(F);
