use strict;
use warnings;

my $webStr = <<EOS;
data-src-hq="image location1"
<p>other stuff</p>
<p>data-src-hq="image location2"</p>
EOS

my @matches = $webStr =~ /data-src-hq="([^"]+)"/g;

print join "\n", @matches, '';


##</code><code>##

image location1
image location2