#! perl -w

use strict;
use Data::Dump qw(dump);

my $html     =           '<h6 class="project-title"><a href="/projects/2138137193/iblab?ref=discovery" target="">iBlab</a></h6><h6 class="project-title"><a href="/projects/2060538158/nz-hosting?ref=discovery" target="">NZ Hosting</a></h6><h6 class="project-title"><a href="/projects/1956727289/how-to-build-a-spaceship?ref=discovery" target="">How To Build A Spaceship</a></h6>';

my @projects = $html =~ m|<h6 class="project-title"><a href="(/projects/(\d+)/.+?\?ref=discovery)" target="">(.+?)</a></h6>|g;

dump \@projects;