perl -0nE 'say join "\n", /data-src-hq="([^"]+)/g' {filename}