#--------|---------|----------|--------+
#######   ########  #########  ###
###  ###  ###       ###   ###  ###
######    ######    #######    ###
###       ###       ###  ###   ###
###       ########  ###   ###  ########
#--------|---------|----------|--------+
$/=0;open Q,$0;$t=<Q>;@l=split/\n/,$t;%k=qw(9 r 8 e 3 l 7 P);($
x,$y)=@l;@z=split/\|/,$x;$i=0;foreach$c(@z){$m=substr($y,($i+=(
$f=length($c))+1)-$f-1,$f);$s=(rindex$m,'#')+1;$_.=$k{$s}}print
~~reverse" rehtona tsuJ";print;print~~reverse",rekcah ";print""

Just another Perl hacker,