in reply to A little fun(?) with POD..
$a||open(F, $0); print/^=/?chr(ord('A')+($a++==5?0:($b=tr/ //c)==5?-33:$b)):()while<F>; [download]
Makeshifts last the longest.