Help for this page

Select Code to Download


  1. or download this
     if ($str =~ /(\\x{[A-F\d]+})/i){    // error by perl -Tcw

 if ($str =~ /^(\d{2,4})[^\d](\d{2})/){     // no error by perl -Tcw
  2. or download this
    DB<4> $str =  '\\x{A3f4}'                                           # 
+literal curly

...

DB<8> if ( $str =~ /^(\d{2,4})[^\d](\d{2})/) { print "$1;$2" }      # 
+meta curly
123;12