#!/usr/bin/perl

# ProLNat Tokenizer (provided with Sentence Identifier)
# autor: Grupo ProLNat@GE, CiTIUS
# Universidade de Santiago de Compostela

# Script que integra 2 funçoes perl: sentences e tokens

use strict; 
binmode STDIN, ':utf8';
binmode STDOUT, ':utf8';
use utf8;

# Absolute path 
use Cwd 'abs_path';
use File::Basename;
my $abs_path = dirname(abs_path($0));

do $abs_path.'/Modules/splitter-en.perl';

#####EXECUTANDO AS FUNÇOES:
my @tokens = <STDIN>;
my @saida = splitter(@tokens);
my $saida = join("\n",@saida);
print "$saida";
###########
