Lingua::Segment::TH module for Perl 5