#!perl -p
eval's#$#($_**=1/++$@)<$`?!/\./&&" $_^$@":" ="#e;'x21