perl -lwe '*c=*!;print %c'