use TeX::Hyphen;
use TeX::Hyphen::Pattern;
my $pattern = TeX::Hyphen::Pattern->new;
$pattern->label('de_DE');
my $hyphenator = TeX::Hyphen->new($pattern->filename);
say $hyphenator->visualize($_) for split ' ', $phrase
use TeX::Hyphen;
use TeX::Hyphen::Pattern;
my $pattern = TeX::Hyphen::Pattern->new;
$pattern->label('de_DE');
my $hyphenator = TeX::Hyphen->new($pattern->filename);
say $hyphenator->visualize($_) for split ' ', $phrase