All pastes #92791 Raw Edit

Stuff

public text v1 · immutable
#92791 ·published 2006-07-19 22:36 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;