#!/usr/bin/perl 
print "Hola mundo\n"; 
print "Ya me jui\n";
 
open(IN, "x.txt"); 
open(OUT, ">x2.txt"); 
while($linea = <IN>) { 
  # manipula los caracteres leidos y puestos en la variable 
  # $linea. Por ejemplo convertir los caracteres a minúsculas 
  $linea =~ s/$/\nx/; 
  # escritura del resultado
  print OUT $linea;
} 
close(IN);
close(OUT);