($linkloc) = ($html =~ m/.*href=["']([^"'> ]+)[^>]*>\s*<img/s);