#!/usr/bin/perl
use strict;
use warnings;
open(IN, "<:encoding(UTF-8)", "in.txt") or die "Can't open input file: $!";
open(OUT, ">:encoding(UTF-8)", "out.txt") or die "Can't open output file: $!";
while (<IN>) {
s/([^\t]*)\t([^\t]*)\1([^\t]*)\t/\t$2$1$3\t/;
print OUT $_;
}
close IN;
close OUT;
print "Replacements done";
<STDIN>;

##</code><code>##

abandon/to	abandon/to	
abandon/to	(a child)	
abandon/to	(a road)	
abandon/to	(claim)	
abandon/to	(motion)	
abandon/to	(one's appeal)	
abandon/to	(privilege on document)	
abandon/to	abandon rented premises/to	
abandon/to	steal or abandon/to  (personal property)	
abandon/to	vacate or abandon/to  (possession or occupation of a land)	
abandoned/to be	abandoned/to be	
abandoned/to be	appeal that is abandoned	
abandoned/to be	application that is abandoned	
abandoned/to be	motion that is abandoned	
abandoned motor vehicle site	abandoned motor vehicle site	
abandoned orchard	abandoned orchard	
abandonment	abandonment	
abandonment	(appeal)	
abandonment	(land)	
abandonment	(mines or minerals)	

##</code><code>##

	abandon/to	
abandon/to	(a child)	
abandon/t	(a road)	
abandon/to	(claim)	
abandon/t	(motion)	
abandon/t	(one's appeal)	
abandon/t	(privilege on document)	
abandon	abandon rented premises/to	
	steal or abandon/to  (personal property)	
	vacate or abandon/to  (possession or occupation of a land)	
	abandoned/to be	
abandoned/to b	appeal that is abandoned	
abandoned/to b	application that is abandoned	
abandoned/to b	motion that is abandoned	
	abandoned motor vehicle site	
	abandoned orchard	
	abandonment	
abandonment	(appeal)	
abandonment	(land)	
abandonment	(mines or minerals)