Select Code to Download

$ perl -de1
...
\x{A3f4}

  DB<2> print $str                                                    
+          
\x{A3f4}
  DB<3> print "$str"                                                  
+          
\x{A3f4}

  DB<3> if ( $str =~ /(\\x{[A-F\d]+})/i ) { print $1 }                
+          
Unescaped left brace in regex is deprecated here (and will be fatal in
+ Perl 5.30), passed through in regex; marked by <-- HERE in m/(\\x{ <
+-- HERE [A-F\d]+})/ at (eval 13)[/usr/share/perl/5.28/perl5db.pl:738]
+ line 2.

at (eval 13)[/usr/share/perl/5.28/perl5db.pl:738] line 2.
    eval 'no strict; ($@, $!, $^E, $,, $/, $\\, $^W) = @DB::saved;pack
+age main; $^D = $^D | $DB::db_stop;
...
    DB::eval called at /usr/share/perl/5.28/perl5db.pl line 3138
    DB::DB called at -e line 1
\x{A3f4}

eval 'no strict; ($@, $!, $^E, $,, $/, $\\, $^W) = @DB::saved;package 
+main; $^D = $^D | $DB::db_stop;
if ( $str =~ /(\\\\x{[A-F\\d]+})/i ) { print $1 };

  DB<5> $str =  '123X12'                                              
+          

  DB<6> p $str                                                        
+          
...

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