while ($html =~ m|href\s*=\s*"((?:[^/]+://[^"/]+)?)/?([^"]+)"\s*>(.*?)</A>|gi) {

        print "$1, $2, $3 \n";

}