$a=<>; $b=<>; $_="1 2 3 4 5"; eval"y/$_/$b/;y/$_/$a/"; print;