# 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-_-buddha1|},buddha29O\buddha2=buddha2/O,buddha26____/`---'\____,buddha24.'buddha2\|buddha5|//buddha2`.,buddha23/buddha2\|||buddha2:buddha2|||//buddha2\,buddha22/buddha2_|||||buddha1-:-buddha1|||||_buddha2\,buddha22|buddha3|buddha1\\buddha2-buddha2/'|buddha1|buddha3|,buddha22|buddha1\_|buddha2`\`---'//buddha2|_/buddha1|,buddha22\buddha2.-\__buddha1`-.buddha1-'__/-.buddha2/,buddha20___`.buddha1.'buddha2/--.--\buddha2`.buddha1.'___,buddha17.""buddha1'<buddha2`.___\_<|>_/___.'buddha1_>buddha1\"".,buddha16|buddha1|buddha1:buddha2`-buddha1\`.buddha1;`.buddha1_/;buddha1.'/buddha1/buddha2.'buddha1;buddha1|,buddha16\buddha2\buddha1`-.buddha3\_\_`.buddha1_.'_/_/buddha2-'buddha1_.'buddha1/,buddha6===========`-.`___`-.__\buddha1\___buddha2/__.-'_.'_.-'===========,buddha30`=--=-'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',;