#!/usr/bin/perl

$t = "T";

$v = (
 ( $t eq "B" ) ? "bus" :
 ( $t eq "A" ) ? "airplane" :
 ( $t eq "T" ) ? "train" :
 ( $t eq "C" ) ? "car" :
 ( $t eq "H" ) ? "horse" :
 "feet" );
 
 print $v;