Ejercicio 3

Por finnnnn!!!!

#!/usr/bin/perl

use strict;
use warnings;

use File::Slurp;

@ARGV || die "Uso: $0 <fichero a partir por trancos>\n";

my $text = read_file( $ARGV[0] ) ;
my @trancos=split("TRANCO", $text);


# $#vector te da el último elemento indexable del array

for (@trancos[1..$#trancos]){   
# -x40 multiplica el - por cuarenta, como cadena,
# por tanto, cuarenta - (-----  ...  --)
print substr($_,0,40), "\n", "-"x40, "\n"; 

  my @parrafo = split("\n\n", $_);

  for my $c(@parrafo){
      print "<p>", $c, "</p>\n\n";

    }
}

La imagen siguiente es la salida