$perlku = (<<KU);

when all is chaos
language of evolution
a glistening perl

KU

print "$perlku\n";