#!/usr/bin/perl
use pt::pln;

$/='';

pt::pln::configure(sentag => "sentence");
while(<>){
  print "\n\n\n===========\n\n". pt::pln::xmlsentences($_);
}