use Regexp::Common qw /URI/;
if m/window\.open\(["']($RE{URI}{HTTP})["']\)/ {
    print $1;
}