#!/Perl/bin/perl

use strict;
use warnings;

my ($hugo, $otto);

$hugo = "hello";
$otto = "world";

# Ausgabe eines Textes bis ein einzelnes END am Zeilenanfang steht

print <<LST;
Dies ist ein längerer Text
in den wir ein $hugo 
und dann später ein $otto
eingefügt haben
LST

    exit;