#!/usr/bin/env perl
use common::sense;
use autodie;
use Lingua::ZH::MMSEG;

my $seg = Lingua::ZH::MMSEG->new();

while(<>){
  chomp;
  say for $seg->mmseg($_);
}
