{
  local $/ = undef;
  $contenido = <LIBRO>;
}

##</code><code>##

$contenido = uc $contenido;
$contenido =~ tr/A-Z/ /cs; 

##</code><code>##

#....
my $contenido;
{
  local $/ = undef;
  $contenido = <LIBRO>;
}
$contenido = uc $contenido;
$contenido =~ tr/A-Z/ /cs; 

my %PF;
$PF{$_}++ for( split /\s+/, $contenido);

open LIBROUT, ">$ar.csv";
my $npalabras = keys %PF;
while( keys %PF ){
  print LIBROUT join ';', $_, my $f=$PF{$_}, $f/ $npalabras;
  print LIBROUT "\n";
}