#!/usr/bin/env perl

use strict;
use warnings;

my $string = '... data-src-hq="qwe" ... '
           . '... data-src-hq="asd" ... '
           . '... data-src-hq="zxc" ...';

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

print "@matches\n";

##</code><code>##

qwe asd zxc