# Invocation of Buddha Ritual
# Written and Prepared in Perl
# Gather your Lotus Flower with thorns still sharp
($;,$)
,$_
)
=('
,
',
';
',
# List the names of the multiple Buddhas
q(buddha31.---.,buddha29.ibuddha2.buddha2i.,buddha29{|buddha1-_-buddha
+1|},buddha29O\buddha2=buddha2/O,buddha26____/`---'\____,buddha24.'bud
+dha2\|buddha5|//buddha2`.,buddha23/buddha2\|||buddha2:buddha2|||//bud
+dha2\,buddha22/buddha2_|||||buddha1-:-buddha1|||||_buddha2\,buddha22|
+buddha3|buddha1\\buddha2-buddha2/'|buddha1|buddha3|,buddha22|buddha1\
+_|buddha2`\`---'//buddha2|_/buddha1|,buddha22\buddha2.-\__buddha1`-.b
+uddha1-'__/-.buddha2/,buddha20___`.buddha1.'buddha2/--.--\buddha2`.bu
+ddha1.'___,buddha17.""buddha1'<buddha2`.___\_<|>_/___.'buddha1_>buddh
+a1\"".,buddha16|buddha1|buddha1:buddha2`-buddha1\`.buddha1;`.buddha1_
+/;buddha1.'/buddha1/buddha2.'buddha1;buddha1|,buddha16\buddha2\buddha
+1`-.buddha3\_\_`.buddha1_.'_/_/buddha2-'buddha1_.'buddha1/,buddha6===
+========`-.`___`-.__\buddha1\___buddha2/__.-'_.'_.-'===========,buddh
+a30`=--=-'buddha10));
# List the Perlish Buddha qualities of ; and /
(s,$;,$/,gx);
# List the Astrological Numbers of Buddha's birth
# In Unix time, of course
(s,buddha([3190485267]+),time;' ' x $1,ge);
print, # Praise the Buddha, print the following
'Buddha, the first perl monk',;