... 
if ($url =~ /a href=/) { 
    # It's a link. 
    if ( $url =~ 'JavaScript:openlink' ) { 
        # oops! java script. Parse the url from the argument to openlink(). 
        $url =~ /\('([^']+)'\)/; 
        if ($1) { 
            $url = $1; 
        } else { 
            printf("Can't parse a url from $url\n"); 
        } 
    } 
}