Hi Jonathan!
#!/usr/bin/perl
$list  = <STDIN>;
$word = "miserable";
$count = 0;
   $list == $word ?  {
    $count ++;
    print ("try a differant word, sad/n");
}

    print $count;