[TxMt] Perl language definition: switch, case?