#!/usr/bin/perl
use strict;
use warnings;

my %variables = @ARGV;
my %replacements;
while (my ($key, $value) = each %variables) {
	$key = qr{$key};
	$value =~ s/'/\\[aq]/g;
	$value =~ s/-/\\N'45'/g;
	$replacements{$key} = $value;
}

while(<STDIN>) {
	while (my ($source, $target) = each %replacements) {
		$_ =~ s/$source/$target/g;
	}
	print $_;
}