#!perl -p
y/.-/52/;s#\d+/?#substr' gt .ejlupwsqr zv ,hafmixnybkcod',31&$&,1#ge