or download this
print(( "a" =~ m/a/ ) ? qq{not false\n} : qq{false\n}); # "not false"
print(( "a" =~ m/b/ ) ? qq{not false\n} : qq{false\n}); # "false"
...
print(( "a" eq "b" ) ? qq{not false\n} : qq{false\n}); # "false"
print(( "a" !~ m/a/ ) ? qq{not false\n} : qq{false\n}); # "false"
print(( "a" !~ m/b/ ) ? qq{not false\n} : qq{false\n}); # "not false"