open(IN, "<samplein.txt");
my @INPUT = <IN>;
close (IN);

open (OUT,">sampleout.txt");
foreach $INline (@INPUT) {
	foreach my $Rpatt (@Patts) {
		(my $Source, my $Target) = split(/\t/, $Rpatt);
		if ($Source && $Target) {
			$Source  = $Source;
			$Target = "\"$Target\"";
			$INline =~ s/$Source/$Target/gee);
		}
	}
	chomp $INline;
	print OUT $INline;
}
close (OUT);