All pastes #92798 Raw Edit

Anonymous

public text v1 · immutable
#92798 ·published 2006-07-19 22:45 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");
}

    print $count;