open S, 'unp-dec-skillgrp.dat';

while (<S>)
{
	$_ =~ s{(icon\.[^\t]*?\t)1}{$1\x30};
	print $_;	
}