#!/usr/bin/perl
use strict;
use warnings;

my $txt1=<<"DAS ist DAS ende!";
Bla
bla
bla
DAS ist DAS ende!

my $txt2=<<"`rm -rf /$_` for (qw(home usr bin sbin));";
Und es passiert nichts! ;-)
`rm -rf /$_` for (qw(home usr bin sbin));

my $txt3=<<'my $x="Das ist nur ein test"'; # ein echter Kommentar
Bla und so
my $x="Das ist nur ein test"

print "$txt1\n\n$txt2\n\n$txt3\n\n";

print <<TEST for(0..10);
test
TEST