$ perl pipetest.pl
Das Kind schreibt: Text vom Kind

Papa arbeitet.
Papa arbeitet.
Das Kind schreibt: Text vom Kind

Papa arbeitet.
Papa arbeitet.
Use of uninitialized value in concatenation (.) or string at pipetest.pl line 33, <GEN0> line 2.
Das Kind schreibt:
Papa arbeitet.
Use of uninitialized value in concatenation (.) or string at pipetest.pl line 33, <GEN0> line 2.
Das Kind schreibt:
Papa arbeitet.
Use of uninitialized value in concatenation (.) or string at pipetest.pl line 33, <GEN0> line 2.
Das Kind schreibt:
Papa arbeitet.
Use of uninitialized value in concatenation (.) or string at pipetest.pl line 33, <GEN0> line 2.
Das Kind schreibt:
Papa arbeitet.