# Note the extra space after the question mark.
print "What is your favorite scripting language? ";

$subLang = <STDIN>;

chomp($subLang);

if ( $subLang eq "perl" ) {
    print "you chose perl!\n";
} else {
    print "$subLang ";
}