PS:

... wieder was vergessen:

ich gehe davon aus, daß jedes Element in @a ein abschließendes Newline "\n" hat - auch die leeren Zeilen; wenn nicht, dann ändern:

my $s = join("\n", @a);