use YAPE::Regex::Explain;
my $regex = '/^([0-9]+)\.([0-9]+)\s+date\s+(\d\d(\d\d)?(\.\d\d){5}?);$/o';
#print YAPE::Regex::Explain->new($regex)->explain;
$regex = '(\.\d\d){5}?;';
print '#' x 60,"\n";
print YAPE::Regex::Explain->new($regex)->explain;
print '#' x 60,"\n";
print YAPE::Regex::Explain->new(qr/a{1,5}/)->explain;
print '#' x 60,"\n";
print YAPE::Regex::Explain->new(qr/a{1,5}?/)->explain;
__END__