in reply to Print the string out in alternating upper and lowercase letters LiKe tHiS.
$ perl -E 'say map { $c++ % 2 ? lc : uc } split //, "like this"' LiKe tHiS [download]