That will always quit after the first pass. So why do you have a loop at all? If that "works", what you really want is just:

$_= <>;
if(/dick/){
    print "you said dick!\n";
  } else {
   print "you didn't say dick, hah, what a dick!\n";
 }
[download]