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;