/(\pl)(?{++$$1})(.)(?{--${$l{$1}=$2}})^/ for<>;(($_)=grep$$_>1,A..Z)>1?print-1:${print,$_=$l{$_}while$_}