#!/usr/bin/perl
($var, $line) = @ARGV;
while (<STDIN>) {
	chomp;
	($l = $line) =~ s/\Q$var\E/$_/g;
	print "$l\n";
}