m{<td[^>]*>\s*(.+?)\s*</td>\s*<td[^>]*>\s*(.+?)\s*</td>\s*
<td[^>]*>\s*(.+?)\s*</td>\s*<td[^>]*>\s*(.+?)\s*</td>\s*
<td[^>]*>\s*(.+?)\s*</td>\s*<td[^>]*>\s*(.+?)\s*</td>\s*
<td[^>]*>\s*(.+?)\s*</td>\s*<td[^>]*>\s*(.+?)\s*</td>\s*
<td[^>]*>\s*(.+?)\s*</td>\s*<td[^>]*>\s*(.+?)\s*</td>\s*
<td[^>]*>\s*(.+?)\s*</td>\s*}is; 
##</code><code>##

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;