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

my $regexp = qr/^(.*?)((=<)|[<=>])(.*)/;
my $exp = YAPE::Regex::Explain->new($regexp);
print $exp->explain;