#! perl
use strict;
use YAPE::Regex::Explain;
print YAPE::Regex::Explain->new(shift)->explain;