Help for this page
$thisHash('price') = $1 if $pageContent =~ s/prices: \<table\>.+?\<\/t +able\>//s $thisHash('cas') = $1 if $pageContent =~ s/CAS: \<b\>\d+-\d{2}-\d+\<\/ +b\>//s
$pageContent =~ /(CAS: \<b>\d+-\d{2}-\d+\<\/b\>|).*?(prices: \<table\> +.+?\<\/table\>|)/s