or download this
while (<DATA>) {
print "/", m{ - (.*?)\s*</title>}, "/\n";
...
<title> GRP-124-8 - Alkaline Rust Remover Solution (Cadilac HTP-1150 -
+ Rust Remover)</title>
<title> GRP-124-9 - Alkaline Rust Remover Solution (Cadilac HTP-1150L
+- Rust Remover)</title>
<title> GRP-124-10 - Alkaline Rust Remover (Titanium Long Soak)";