$ perl -le"print qq!\L$ARGV[0]TALL\E!" CAPI
capitall