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

$/='';

while(<>){
  print pt::pln::xmlsentences($_);
}
