$page2 = "<li>A$1C</li>" if $page =~ m{<title>(.*)</title>};