One way would be something like this:
code:
#############################################
# Define path to file
$HTML_file = "/path/to/HTML_file";
# Open HTML file to print output
open(FILE,"<$HTML_file") | | die "Can't open $HTML_file file";
@lines =
;
close(FILE);
foreach $line (@lines) {
# Insert the marker in the HTML # page where you whant the
# new line printed in the file.
if ($line =~ //) {
print qq|the line you want here|;
exit;
}
else { chop ($line) if ($line =~ /n$/); print "$linen"; }
}
######################################
Hope this helps
------------------
Mike(mickalo)Blezien
Thunder Rain Internet Publishing
Providing Personal/Business
Internet Solutions that work!
http://www.thunder-rain.com
Email: info@thunder-rain.com