RosettaCodeData/Task/String-case/AWK/string-case-2.awk

BEGIN {
  a = "alphaBETA";
  print toupper(substr(a, 1, 1)) tolower(substr(a, 2))
}