#!/usr/bin/perl -w use strict; # how does it feel to play the fool? my $YAWPS = qw ( Yet another Witty Perl Script ); my @writeUps = qw (Various Utterings and other such YAWPS); foreach my $effort(@writeUps) { if ($effort eq $YAWPS) { my $reputation++; } else { my $reputation--; } } print "Either Way, I Have Fun Making You Lot Laugh\n";
In reply to On Being The PerlMonks Buffoon by azatoth
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |