#!/usr/sbin/perl

open(FILEREAD, "index.html") or die "Couldn't open for reading: $!"; 

while (<FILEREAD>) {

$content .= $_;
}

$content =~ s/<li>/<br>/ig;
$content =~ s/<\/li>//ig;

open(FILEWRITE, ">index.html") or die "Couldn't open for writing: $!";

print FILEWRITE $content;

close FILEWRITE;

exit;