title: perl: how to get the original regex from the precompiled version?
body: <p>Simple code:</p>
  <pre><code>use 5.014;
  use warnings;
  
  my $re = &lt;DATA&gt;;
  chomp $re;
  my $re2 = qr/$re/;
  say $re2;
  __END__
  ^\w$
  </code></pre>
  <p>result:</p>
  <pre><code>(?^u:^\w$)      #added the (?^u:
  </code></pre>
  <p>Is any correct way to decompile $re2 getting back the original regex?</p>
  <p>Motivation: the regex is an config value, so need:</p>
  <ul>
  <li>read it</li>
  <li>compile it</li>
  <li>save it to the file for the later use.</li>
  </ul>
  <p>But can't save the compiled regex for the later use, because in every compiling the regex got expanded with the (?^u:, so after several cycles i ended with like:</p>
  <pre><code>(?^u:(?^u:(?^u:(?^u:(?^u:^\w$)))))
  </code></pre>
  <p>therefore the question are:</p>
  <ul>
  <li>is here any correct way, how to save the compiled version?</li>
  <li>if no way - how to decompile, to getting the original version?</li>
  <li>any idea?</li>
  </ul>