#!perl -lX
$_=p;for$i(1..pop){$_.=uc.$_}y/pP/- /;print