while( <> ) {
	my @elements = split /\t/;
	$elements[0] =~m/Zosma(\d+)g/;
	$elements[1] = "scaffold_$1";
	print join( "\t", @elements );
}
