my $text = "...";
my $cell = qr{ <td[^>]*> \s* (.+?) \s* </td> \s* }isx;
my @result = $text =~ m/
	$cell $cell $cell
	$cell $cell $cell
	$cell $cell $cell
	$cell $cell 
/x;