luego de un aprendizaje muy rapido en la pagina recomdada, tengo esto por el momento:
Cita: #!/usr/bin/perl
open(archivo,"<texto.html") || die "$!";
open(html,">texto.html.spam") || die "$!";
@string=<archivo>;
my $string_html = join("/n", @string);
#Le sacamos los saltos de línea para trabajar más cómodos
$string_html =~ s/\n//g;
#tomamos el código que hay entre <body> y </body> con su contenido y atributos (no entiendo que hace)
my ($atributos,$contenido) = $html_string =~ m#<body (.*?)>(.*?)</body>#;
print $atributos; #para aprender que hace (salida 0 por ahora)
print $contenido; #para aprender que hace (salida 0 por ahora)
print $string_html; #sale todo, sin embargo veo aun /n (que raro)
close(txt);
close(html);
creo que no estoi tan perdido por ahora
