perl -nF -E '@h{split"",ARNDBCEQZGHILKMFPSTWYV}=1..22;say"@h{@F}"'