#!/usr/bin/perl

use strict;
use warnings;
use YAPE::Regex::Explain;

my $re = '[Calle[-\s]/';
print YAPE::Regex::Explain->new($re)->explain;