$lang = ;chomp($lang);if ( $lang eq "perl" ) { print "Congratulations, you choose perl!\n";} elsif ( $lang eq "Tcl" ) { print "Tcl is great, too.\n";} else { print "Well, use $lang if you feel ";}