#!/usr/bin/perl -w

%r = @ARGV;
while (<STDIN>) {
    while (($a, $b) = each %r) {
	s/$a/$b/g;
    }
    print;
}