#!/usr/bin/perl

use warnings;
use strict;

my $source = shift @ARGV;
my $destination = shift @ARGV;
my $matchfile = shift @ARGV;



my @matches = ();

open (MF, '<', $matchfile) or die $!;
while (<MF>)
{
	push @matches, $_;
}
close MF;


# have a list of all matches





my @input = ();

open (IN, '<', $source) or die $!;
while (<IN>)
{
	push @input, $_;
}
close (IN);




# have all input lines in an array



my @output = ();

NEXT_INPUT_LINE:
for my $input_line (@input)
{
	
	# check every input line 1 time


	NEXT_MATCH_PAIR:
	for my $match_pair (@matches)
	{
		my @DATA = split (/\s/, $match_pair);
		my $matcher = $DATA[0];
		my $replacer = $DATA[1];
		
		
		# check all match pairs against 1 input line
		
		if ($input_line =~ /^$matcher/)
		{
			# make replacement
			$input_line =~ s/legend/$replacer/;
			push @output, $input_line;
			
			# jump to next input line
			next NEXT_INPUT_LINE;
		}
	}
	
	# if it gets here, there was no replacement
	
	
	# copy input line to output
	
	push @output, $input_line;
}




# have all replaced output in @output





# write @output to $destination


open (OUT, '>', $destination) or die $!;
for my $output_line (@output)
{
	print OUT $output_line;
}
close OUT;