Select Code to Download

use strict;
use warnings;
...
  , (qr{a} eq '(?-xism:a)'?'true':'false'), "\n";
print "comparing variables: regex eq $s (string): "
  , ($s eq $re?'true':'false'), "\n";

-------Type------------
ref (?-xism:a) (regex) is 'Regexp': true
...
-------Equality--------
comparing literals: qr{a} eq '(?-xism:a)': true
comparing variables: regex eq (?-xism:a) (string): true