push@_,$_ while$_=<>,/O/;chomp@_;for(@_){@a=split//;@b=split//,<>;print$_ eq shift@b?" ":"O"for@a;print"\n"}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page