Select Code to Download

use Data::Dumper;

...
$VAR1 = {
          'REGEXP' => qr/(?-xism:^something$)/
        };

$myhash{REGEXP} = qr/^something$/;
print $myhash{REGEXP};  # -->  (?-xism:^something$)
...
print $myhash{REGEXP};  # -->  (?-xism:(?-xism:(?-xism:^something$)))

...

---
REGEXP: !!perl/regexp (?-xism:^something$)

package YAML::Type::regexp;
...
...
    bless $qr, $class if length $class;
    return $qr;
}

REGEXP: !!perl/regexp (?i-xsm:^something$)
                        |
                        v
         qr{^something$}i