Select Code to Download

#!/usr/bin/env perl

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

print "@matches\n";

qwe asd zxc