#!/usr/bin/perl
use pln;

$/='';

while(<>){
  pln::separaFrases($_);
}