use warnings;
use strict;
use HTML::Tiny;
 
my @tests = map { 'co'.('m'x$_).'a' } 0..4;
my @regexes = do { no warnings 'qw'; qw/ com?a com*a com+a co(mm)?a
	co(m|mmm)a com{2}a com{0,2}a com{2,3}a com{3,}a / };

my $h = HTML::Tiny->new;
print $h->table( {border=>1,cellpadding=>3,cellspacing=>0},
	[ \'tr',
		[ \'td', '', map { $h->code($_) } @tests ],
		map( { my $r=$_;
			[ \'td', $h->code("/$r/"),
				map( { /$r/
					? $h->tag('font', {color=>'green'}, '✔')
					: $h->tag('font', {color=>'red'}, '✘')
					} @tests ),
			]
		} @regexes ),
	] );