Help for this page

Select Code to Download


  1. or download this
    perl -MDevel::Peek -wE 'my $r = qr/\x{03bc}/; Dump $r'
...
FLAGS = (OBJECT,FAKE,UTF8)
PV = 0x10eff20 "(?^u:\\x{03bc})" [UTF8 "(?^u:\\x{03bc})"]
  2. or download this
    open my $file, '<', '/bogus_file' or die "Can't open: $!\n";