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