#!/usr/local/bin/perl -w
# Blame:  David Hawthorne
 
use Filter::cpp;
 
#define HAI use strict;
#define ORLY ) {
#define FUN ) {
#define KTHX }
#define LOOP(x) for (x) {
#define IZ if (
#define IS =
#define R =
#define I_HAS my
#define NOWAI } else {
#define KTHXBAI exit;
#define BTW #
#define BIGR >
#define SMALR <
#define GTFO last;
#define ONOES die
#define CANHAS use
#define LIEK eq
#define LEFTOVER %
 
HAI
 
I_HAS @strings;
I_HAS @foo;
 
@strings R ("foo", "bar", "baz");
@foo IS @strings;
 
LOOP(@strings)
  IZ $_ LIEK "bar" ORLY
    print "FOUND bar!!!1!11!\n";
    GTFO
  NOWAI
    print "This not bar: $_\n";
  KTHX
KTHX
 
KTHXBAI