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

$/='';

while(<>){
  print "\n___\n\n", join("\n\n", pt::pln::sentences($_));
}