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;