My Page

At a quick glance
intro

At a glance

How does it work?
Step 1: Commitment.

Who manages it?
owner actively commits by publicizing it to his/her friends.

If you have other questions, please email us at:

##

use strict;
use warnings;
our $content='';
our $val='';
our $count = 1;
open (MYFILE, 'C:\Program Files\Perl Express\Scripts\faq.html');
print "The HTML File Contents are,\n";
my $mycount = 1;
while ($content = ) {
chop $content;
$val = $content;

my $ins = qq{
 Back to top
 
  };

if ($val =~ m/<\/ul>/)
{
$count = $count + 1;
}
$val =~ s{()}{$ins$1}gsi;
if (-e "../faq1.html") {
unlink ("../faq1.html");
open (DA, ">>faq1.html") or die "$! error trying to overwrite";
print DA "$val\n";
close (DA);
}
else {
open (DA, ">>faq1.html") or die "$! error trying to overwrite";
print DA "$val\n";
close (DA);
}
}