#!/usr/bin/perl 

use v5.030;    # strictness implied
use warnings;
use Path::Tiny;
my $file_in = path("/home/fritz/Desktop/1.enchanto.txt");
my $file_out = path('/home/fritz/Desktop/1.enc_trans.txt');
my $lang = 'es';
my $command = 'trans -b :$lang "$para">$buffer';
my $guts = $file_in->slurp_utf8;
my @spl = split('\n', $guts);
say @spl;
my $buffer;
for my $para (@spl){

say $para;

my $trans = system("$command");

say $buffer;
#$file_out->spew_utf8( $para, $trans );
}
__END__