$miracle = <<GROOK;

THE MIRACLE OF SPRING
by Piet Hein (in Grooks, 1966)
translated into Perl by osfameron (hakim\@earthling.net)

We glibly talk
  of nature's laws
but do things have
  a natural cause?

Black earth turned into
  yellow crocus
is undiluted
  hocus pocus
GROOK

	#	#	#

	we: print GLIBLY
	  $of. $natures {laws};
	but: exists $things 
	  {'natural cause'} ?
	
	s(Black earth) #into
	  (yellow crocus) :
	$is {undiluted}, 
	  $hocus_pocus++;

	#	#	#

print $miracle if $hocus_pocus;