title: Postgre regexp does not work in perl code using dbi
body: <p>i have this simple data in postgres table (data type is character varying):</p>
  
  <pre><code>48
  2
  L
  4XL
  25.0
  25
  7.0
  </code></pre>
  
  <p>i have this sql query with regexp match (i want match only numeric like values like 7.0 or 48): </p>
  
  <pre><code>SELECT * FROM table WHERE ss.sizecode ~ E'^\\s*[\\d\\.]+\\s*$'
  </code></pre>
  
  <p>this works perfect in command line client psql,<br>
  but does not work in perl code:</p>
  
  <pre><code>my $sth = $dbh-&gt;prepare(
      q(SELECT * FROM table WHERE ss.sizecode ~ E'^\\s*[\\d\\.]+\\s*$')
   );
  $sth-&gt;execute
  while ( my @row = $sth-&gt;fetchrow_array() ) {
      # no data i want
  }
  </code></pre>