#!/usr/bin/perl

use YAPE::Regex::Explain;
print YAPE::Regex::Explain->new(qr/\bold\b/i)->explain;