my ($url, $id, $title) = ($_ =~ m|<h6 class="project-title"><a href="(/proje
+cts/(\d+)/.+?\?ref=discovery)" target="">(.+?)</a></h6>|o );
    push @project, [$url, $id, $title];

##</code><code>##

    push @project, [ m|<h6 class="project-title"> ... yadda ... </h6>|o ];

##</code><code>##

dump \@urls, \@ids, \@titles;