use 5.010;
use RDF::Trine;
use RDF::QueryX::Lazy;

my $protein  = 'P61177';
my $pr_url   = sprintf 'http://purl.uniprot.org/uniprot/%s', $protein;

my $database = RDF::Trine::Model->new;
RDF::Trine::Parser->parse_url_into_model($pr_url => $database);

my $query = RDF::QueryX::Lazy->new(<<"QUERY");
SELECT *
WHERE {
    <$pr_url> rdfs:seeAlso ?fam_url .
    ?fam_url rdfs:comment ?family .
    FILTER regex(STR(?fam_url), "^http://purl\.uniprot\.org/interpro/")
}
QUERY

my $results = $query->execute($database);
while (my $result = $results->next())
{
    say $result->{family}, q[ ], $result->{fam_url};
}