$fileline =~ s/$line.shtml"-->/$line.shtml"-->\n# #### $fileline =~ s[$line.shtml"-->] [$line.shtml"-->\n]