All pastes #92785 Raw Edit

Miscellany

public text v1 · immutable
#92785 ·published 2006-07-19 22:33 UTC
rendered paste body
Hi Jonathan!
#!/usr/bin/perl
$list  = <STDIN>;
$word = miserable
$count = 0
 ?  ($list == $word)  {
    $count ++
    print ("try a differant word, sad/n");
}

$list = <STDIN>;
print $count;