Because $temp contains a carriage-return, although I'm not sure what you are trying to do with that last one. (Also, your print statements do NOT contain a carriage return, and so they won't print quite the way you expect.)

chomp($temp = <STDIN>);
[download]

Thanks muchly jasonk

#!/usr/bin/perl
use strict;

while(my $temp = <STDIN>) {

  chomp $temp;     #  removes the "\n" from the end.

  if ($temp eq "yo") {
    print "whats up\n";
  } elsif ($temp eq "not much") {
    print "cool\n";
  }

}
[download]

you need the 'chomp' to remove the "\n" from the line you read in. it also looks like you'll want to loop to get the next line and the next line ... from the user.

It might also be worth noting that there is no condition after an else; the purpose of that one is, after all, to catch everything that hasn't been handled yet, so to speak.

Also, are you sure that $temp eq "<STDIN>" (notice the quotes) is what you want, anyhow? It looks rather suspicious to me.

--
mowgli

%call_and_response = (

'yo',     'what\'s up',

'not much',     'cool',

'how about that local sports team?',     'they suck',

);
[download]

Then you can just do

if($call_and_response{$call}){
  print $call_and_response{$call};
}else{
  print "huh?";
}
[download]

“Every bit of code is either naturally related to the problem at hand, or else it's an accidental side effect of the fact that you happened to solve the problem using a digital computer.”
M-J D

#!/usr/bin/perl -w

use strict;

SWITCH: for(<STDIN>) {
/^[Yy]o$/       && { print "whats up"; last; };
/^[Nn]ot much$/ && { print "cool"; last; };
   print "HUH?"
}
[download]

====>
Mice were crying and stinging but went on nibbling the cactus ... 
                                              ( The facts of life )
                                                              <====