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

my $var1 = "This (is)- my first string";
my $var2 = "This (is)- my first string";

say YAPE::Regex::Explain->new($var2)->explain();