# dein code

sub read_data {
    while(my $line = <DATA>) {
        chomp $line;
        print "> $line\n";
    }
}

__DATA__
Das ist ein freier Text, hier kann quasi stehen was will.
Hello World