peczenyj/linguaP.pl

## gistfile1.txt
$ perl linguaP.pl "ola tudo bem"
PeO PeLa PeTu PeDo PeBem

## linguaP.pl
use strict;
use warnings;
use feature qw(say);

use Lingua::PT::Hyphenate;

say join " ", map { "Pe" . ucfirst }  map { hyphenate($_) } split /\s+/, $ARGV[0];
	use strict;
	use warnings;
	use feature qw(say);

	use Lingua::PT::Hyphenate;

	say join " ", map { "Pe" . ucfirst } map { hyphenate($_) } split /\s+/, $ARGV[0];