#!/usr/bin/perl
use warnings;
use v5.10;
 
# gem som utf8!
use utf8;
use TeX::Hyphen;
use TeX::Hyphen::Pattern;
use open ":locale";
 
$pat = TeX::Hyphen::Pattern->new();
$pat->label('da_DK');
 
# Det ser ikke ud til at det hjælper at ændre på left/rightmin
#$hyph = TeX::Hyphen->new(file => $pat->filename, leftmin => 2, rightmin => 2); 
$hyph = TeX::Hyphen->new(file => $pat->filename);
 
say "køreskole: "
  . $hyph->visualize("køreskole"); # køreskole: køresko-le
 
say "wonderwoman: "
  . $hyph->visualize("wonderwoman"); # wonderwoman: won-derwo-man
 
say "katedralskole: "
  . $hyph->visualize("katedralskole"); # katedralskole: ka-ted-ralsko-le