$responseXML .= 
     ( $_ eq 'sloven' ) ? ( sloven('xml') )
   : ( $_ eq ... )      ? ( ... )
   : ( ... test ... )   ? ( ... then ... )
   :                      ( final 'else' value )