peczenyj · August 22, 2014 23:03 · mfvieira27 · Jun 23, 2017 · MarsaxBR · Oct 3, 2020
diff --git a/gistfile1.txt b/gistfile1.txt
 $ perl linguaP.pl "ola tudo bem"
 PeO PeLa PeTu PeDo PeBem
diff --git a/linguaP.pl b/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];