while ($t =~ /<div id="724">(.*?)<\/div>/sg)
{
    print "$_\n" for $1 =~ /<p>(.+?)<\/p>/g;
}