#!/usr/bin/perl
  use strict;
  
  while(<>){
  	chomp;
  	my @t = split('\t',$_);
  	$t[1] =~ s/un/in/g;
  	print "$t[0]\t$t[1]
  ";
  }