$sth=$dbh->prepare($sql);
	$sth->execute() ||
	die "Could not execute SQL statement... maybe invalid syntax?";
	
	#show the results of the regex query in a table
	print "<br>Search Results:<br>".
		"<table border=1>";

while (my @array = $sth->fetchrow_array()){		
		print "<tr>";
		foreach my $elem (@array){
			#search & display the first element in the array for the regex
			$searchTitle=$array[0];
			if ($searchTitle=~/(?=.*pr\w{4}m)(?=(?=\w*w\w*)(?=\w*b\w*)\w+\b)/){
			print "<td>";
			print "$elem\n";
			print "<td>";
  }
 }
}
        print "</table>";	
	$sth->finish;
	$dbh->disconnect;