my $regex = /<p><strong>([\W\w].+)<\/strong><br \/>[\w\W].+(http:\/\/x\.y\.z[^"]+)/g;
for ($object->content =~ $regex) {
 print "$1: $2 \n";
}