#!/usr/bin/perl -w -s
use Data::Dumper;
use Lingua::PT::PLNbase;
use utf8::all;
our($latin1, $ps);

my $x = "";

$ps //= "";

$/= eval('qq{' . $ps . '}');


while(<>) {
#binmode(ARGV,':encoding(ISO8859-1)') if $latin1;
  binmode(*ARGV,':encoding(cp1252)') if $latin1; 
  $x.="\n".$_;
}

@frases = frases($x);

print "* $_\n" for @frases;