my %rules = ( ## #/\# #//\\# #///////#///\\\#\\\\\\\# #///P///#///E///#/// \\\#\\\R\\\#\\\L\\\# #///////#//// //#//// //#/////\\\\\#\\ \\\\#\\ \\\\#\\\\\\\# #//// //#///////#///////#//////\\\\\\#\\\\\\\#\\\\\\\#\\ \\\\# '==' => sub { looks_like_number ($_[0]) && $_[0] == $_[1] }, '!=' => sub { looks_like_number ($_[0]) && $_[0] != $_[1] }, '<' => sub { looks_like_number ($_[0]) && $_[0] < $_[1] }, '<=' => sub { looks_like_number ($_[0]) && $_[0] <= $_[1] }, '>' => sub { looks_like_number ($_[0]) && $_[0] > $_[1] }, '>=' => sub { looks_like_number ($_[0]) && $_[0] >= $_[1] }, 'eq' => sub { !ref ($_[0]) && $_[0] eq $_[1] }, 'ne' => sub { !ref ($_[0]) && $_[0] ne $_[1] }, 'lt' => sub { !ref ($_[0]) && $_[0] lt $_[1] }, 'le' => sub { !ref ($_[0]) && $_[0] le $_[1] }, 'gt' => sub { !ref ($_[0]) && $_[0] gt $_[1] }, 'ge' => sub { !ref ($_[0]) && $_[0] ge $_[1] }, '=~' => sub { !ref ($_[0]) && $_[0] =~ $_[1] }, '!~' => sub { !ref ($_[0]) && $_[0] !~ $_[1] }, #### / Welcome; \ #### #### #### #### #### / \ #### #### #### #### ); # Perl Palace, MR 01/2016