#!/usr/bin/perl
;$_=q;kvtu bopuifs qfsm ibdlfs
;;;tr;b-v;a-u;;s;(\w+);\u$1;g;
print;s;a;f;e;;m;i;x;;tr-e-n-d