perl -M"0;@h{split'','ARNDBCEQZGHILKMFPSTWYV'}=(1..22)"-pne "s/([A-Z])/$h{$1} /g"