#!/usr/bin/perl -P 
#define $a (1<<4)
#define submarine "\n";
#define __ sub
#define yellow ),
#define we {return
#define _ l337
#define all $_[0]<2?1:
#define live (_($_[0]-2)
#define in +_($_[0]-1));}
#define a print _($a

__ _ 
we all live in 
a yellow submarine
__ _

Disclaimer: This is an unofficial UMMS page.