duckduckgo link stripper in perl

#!/usr/bin/perl -w
#author: k3170makan
#Strips links from a duckduckgo.com page XD
#two lines, no semi-colons doesn't work that well for google page :(
foreach(<>){
    print $+{URL},"\n" if m/(?<ANCHOR><a[\s].*?href=(?:[\"\w_\-\d]+).*?)/?m/(?<URL>http:\/\/(?:[\w_\-\d\.]+)*)/:0}