Select Code to Download

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

NODE                     EXPLANATION
----------------------------------------------------------------------
...
----------------------------------------------------------------------
)                        end of grouping
----------------------------------------------------------------------

my $re = qr{
    ^(.*?)
...
    )
    (.*)
}x;

my $re = qr{
    ^               # Beginning of line
...
    \s*             # Optional whitespace
    ([a-zA-Z0-9_]+) # Capture(3) Alphanumeric RHS
}x;

my $operand  = '[a-zA-Z0-9_]+' ;
my $re = qr{
...
    \s*             # Optional whitespace
    ($operand)      # Capture(3) Alphanumeric LHS
}x;

use strict;
use warnings;
...
a>b
a=>b
a=<b