in reply to Storing Substitution Output String
$page2 = "<li>A$1C</li>" if $page =~ m{<title>(.*)</title>}; [download]
Abigail