perl Text-German