No need for all that fancy mess, I would do the following.

my $table
open (INFILE, "<sites.txt");
#data from file looks like this:
#sitename|siteaddress|status|comments
 while (<INFILE>) {
  my(@vals) = split/|/;
  $table .= "<tr><td>$vals[0]</td><td>$vals[1]</td><td>$vals[2]</td><t
+d>$vals[3]</td></tr>\n";
}
close (INFILE);
print "<table>$table</table>";
[download]

With the appropriate header of course.

my $name = 'Ben Kittrell';
$name=~s/^(.+)\s(.).+$/\L$1$2/g;
my $nick = 'tha' . $name . 'sta';
[download]