#!/usr/bin/perl
open P,shift;read(P,$p,length),print $_^$p while<>