develooper Front page | perl.perl5.porters | Postings from November 2008

Re: PATCH [perl #59342] chr(0400) =~ /\400/ fails for >= 400

Thread Previous | Thread Next
From:
Tom Christiansen
Date:
November 12, 2008 21:12
Subject:
Re: PATCH [perl #59342] chr(0400) =~ /\400/ fails for >= 400
Message ID:
3987.1226552986@chthon
> My understanding is that in a regex, if you have 3 matches, that "\333" 
> might be more ambiguous than you are assuming.

>> There is GREAT reason *not* to delete it, as the quantity of code you would
>> see casually rendered illegal is incomprehensibly large, with the work
>> involved in updating code, databases, config files, and educating
>> programmers and users incalculably great.  To add insult to injury, this 
>> work you would see thrust upon others, not taken on yourself.

> Yep, that's a great reason.

I'm glad you agree, easily suffices to shut off the rathole.

And in case it doesn't, the output below will convince anyone 
that we ***CANNOT*** remove \0ctal notation.  Larry would never
allow you to break so many people's code.  It would be the worst
thing Perl has ever done to its users.  It verges upon the insane.

Case closed.

--tom

Grepping for \\\d *ONLY* in the indented code segments of the standard pods: 

    buildtoc:  unless (open (F, "< $_\0")) {
    buildtoc:  s/(\w+)::\1/$1/;
    buildtoc:  tr/\015//d;
    buildtoc:  die "$0: $name contains NUL bytes" if $makefile =~ /\0/;
    buildtoc:  $makefile =~ s/^\tcopy \.\.\\README.*\n/\0/gm;
    buildtoc:  my $sections = () = $makefile =~ m/\0+/g;
    buildtoc:  1 while $makefile =~ s/\0\tcopy .*\n/\0/gm;
    buildtoc:  $makefile =~ s/\0+/join ("", &generate_nmake_1)/se;
    buildtoc:  die "$0: $name contains NUL bytes" if $makefile =~ /\0/;
    buildtoc:  $makefile =~ s/\npod\d* =[^\n]*/\0/gs;
    buildtoc:  my $sections = () = $makefile =~ m/\0+/g;
    buildtoc:  $makefile =~ s/\0+/join "\n", '', &generate_descrip_mms_1/se;
    buildtoc:  die "$0: $name contains NUL bytes" if $makefile =~ /\0/;
    buildtoc:               /\0/gsx;
    buildtoc:  $sections = () = $makefile =~ m/\0+/g;
    buildtoc:  $makefile =~ s/\0+/join "\n", '', &generate_descrip_mms_2/se;
    buildtoc:  die "$0: $name contains NUL bytes" if $makefile_SH =~ /\0/;
    buildtoc:  $makefile_SH =~ s/\n\s+-\@test -f \S+ && cd pod && \$\(LNS\) \S+ \S+ && cd \.\. && echo "\S+" >> extra.pods \# See buildtoc\n/\0/gm;
    buildtoc:  my $sections = () = $makefile_SH =~ m/\0+/g;
    buildtoc:  $makefile_SH =~ s/\0+/join "\n", '', @copy_rules, ''/se;
    checkpods.PL:    s/(\012|\015\012|\015)$//;
    perlcygwin.pod:  C:\CYGWIN\BIN\PERL.EXE: *** couldn't allocate memory 0x10000(4128768) for 'C:\CYGWIN\LIB\PERL5\5.6.1\CYGWIN-MULTI\AUTO\SOCKET\SOCKET.DLL' alignment, Win32 error 8
    perldbmfilter.pod:    $hash{"$key\0"} = "$value\0";
    perldbmfilter.pod:    $db->filter_fetch_key  ( sub { s/\0$//    } );
    perldbmfilter.pod:    $db->filter_store_key  ( sub { $_ .= "\0" } );
    perldbmfilter.pod:        sub { no warnings 'uninitialized'; s/\0$// } );
    perldbmfilter.pod:    $db->filter_store_value( sub { $_ .= "\0" } );
    perldebguts.pod:       restoring \1 to 4(4)..7
    perlebcdic.pod:    '\000\001\002\003\234\011\206\177\227\215\216\013\014\015\016\017' .
    perlebcdic.pod:    '\020\021\022\023\235\205\010\207\030\031\222\217\034\035\036\037' .
    perlebcdic.pod:    '\200\201\202\203\204\012\027\033\210\211\212\213\214\005\006\007' .
    perlebcdic.pod:    '\220\221\026\223\224\225\226\004\230\231\232\233\024\025\236\032' .
    perlebcdic.pod:    '\040\240\342\344\340\341\343\345\347\361\242\056\074\050\053\174' .
    perlebcdic.pod:    '\046\351\352\353\350\355\356\357\354\337\041\044\052\051\073\254' .
    perlebcdic.pod:    '\055\057\302\304\300\301\303\305\307\321\246\054\045\137\076\077' .
    perlebcdic.pod:    '\370\311\312\313\310\315\316\317\314\140\072\043\100\047\075\042' .
    perlebcdic.pod:    '\330\141\142\143\144\145\146\147\150\151\253\273\360\375\376\261' .
    perlebcdic.pod:    '\260\152\153\154\155\156\157\160\161\162\252\272\346\270\306\244' .
    perlebcdic.pod:    '\265\176\163\164\165\166\167\170\171\172\241\277\320\335\336\256' .
    perlebcdic.pod:    '\136\243\245\267\251\247\266\274\275\276\133\135\257\250\264\327' .
    perlebcdic.pod:    '\173\101\102\103\104\105\106\107\110\111\255\364\366\362\363\365' .
    perlebcdic.pod:    '\175\112\113\114\115\116\117\120\121\122\271\373\374\371\372\377' .
    perlebcdic.pod:    '\134\367\123\124\125\126\127\130\131\132\262\324\326\322\323\325' .
    perlebcdic.pod:    '\060\061\062\063\064\065\066\067\070\071\263\333\334\331\332\237' ;
    perlebcdic.pod:    eval '$ebcdic_string =~ tr/' . $cp_037 . '/\000-\377/';
    perlebcdic.pod:    eval '$ascii_string =~ tr/\000-\377/' . $cp_037 . '/';
    perlebcdic.pod:    print "JAPH\nJunk" & "\277\277\277\277\277";  # prints "japh\n";
    perlebcdic.pod:    # $foo eq "AB\0\0CD"
    perlebcdic.pod:    print "Content-type:\ttext/html\015\012\015\012"; 
    perlebcdic.pod:        $char =~ /[\000-\037]/;
    perlebcdic.pod:        $char =~ /[\040-\176]/;
    perlebcdic.pod:        $char eq "\177";
    perlebcdic.pod:        $char =~ /[\200-\237]/;
    perlebcdic.pod:        $char =~ /[\240-\377]/;
    perlebcdic.pod:            return $char =~ /[\000-\037]/;
    perlebcdic.pod:            return $char =~ /[\000-\003\067\055-\057\026\005\045\013-\023\074\075\062\046\030\031\077\047\034-\037]/;
    perlebcdic.pod:            return $char =~ /[\000-\003\067\055-\057\026\005\025\013-\023\074\075\062\046\030\031\077\047\034-\037]/;
    perlebcdic.pod:            return $char eq "\177";
    perlebcdic.pod:            return $char eq "\007";
    perlebcdic.pod:            return $char =~ /[\200-\237]/;
    perlebcdic.pod:            return $char =~ /[\040-\044\025\006\027\050-\054\011\012\033\060\061\032\063-\066\010\070-\073\040\024\076\377]/;
    perlebcdic.pod:            return $char =~ /[\040-\045\006\027\050-\054\011\012\033\060\061\032\063-\066\010\070-\073\040\024\076\377]/;
    perlebcdic.pod:              /[\040-\045\006\027\050-\054\011\012\033\060\061\032\063-\066\010\070-\073\040\024\076\137]/;
    perlebcdic.pod:            return $char =~ /[\240-\377]/;
    perlebcdic.pod:              /[\101\252\112\261\237\262\152\265\275\264\232\212\137\312\257\274\220\217\352\372\276\240\266\263\235\332\233\213\267\270\271\253\144\145\142\146\143\147\236\150\164\161-\163\170\165-\167\254\151\355\356\353\357\354\277\200\375\376\373\374\255\256\131\104\105\102\106\103\107\234\110\124\121-\123\130\125-\127\214\111\315\316\313\317\314\341\160\335\336\333\334\215\216\337]/;
    perlebcdic.pod:              /[\101\252\112\261\237\262\152\265\273\264\232\212\260\312\257\274\220\217\352\372\276\240\266\263\235\332\233\213\267\270\271\253\144\145\142\146\143\147\236\150\164\161-\163\170\165-\167\254\151\355\356\353\357\354\277\200\375\376\373\374\272\256\131\104\105\102\106\103\107\234\110\124\121-\123\130\125-\127\214\111\315\316\313\317\314\341\160\335\336\333\334\215\216\337]/; 
    perlebcdic.pod:              /[\101\252\260\261\237\262\320\265\171\264\232\212\272\312\257\241\220\217\352\372\276\240\266\263\235\332\233\213\267\270\271\253\144\145\142\146\143\147\236\150\164\161-\163\170\165-\167\254\151\355\356\353\357\354\277\200\340\376\335\374\255\256\131\104\105\102\106\103\107\234\110\124\121-\123\130\125-\127\214\111\315\316\313\317\314\341\160\300\336\333\334\215\216\337]/;
    perlebcdic.pod:    MM+6VM[BYNKN\O;Z_P,'"P\3%QL?(R<K+S,W.S]#1TM/4U=;7V-G:V]S=WM_@
    perlembed.pod:            filename[strlen(filename)-1] = '\0'; /* strip \n */
    perlfaq4.pod:       if ("\020\020" & "\101\101") {
    perlfaq4.pod:       if ( ("\020\020" & "\101\101") !~ /[^\000]/) {
    perlfaq4.pod:       s/(.)\1/$1/g;
    perlfaq4.pod:        if (/^\s*(?:([^\w\s]+)(\s*).*\n)(?:\s*\1\2?.*\n)+$/) {
    perlfaq4.pod:               if ($vec =~ tr/\0// / length $vec > 0.95) {
    perlfaq4.pod:                       while($vec =~ /[^\0]/g ) {
    perlfaq4.pod:       while($vec =~ /[^\0]+/g ) {
    perlfaq6.pod:               while ( /\b([\w'-]+)(\s+\1)+\b/gi ) {   # word starts alpha
    perlfaq8.pod:       print DEV "atv1\012";   # wrong, for some devices
    perlfaq8.pod:       print DEV "atv1\015";   # right, for some devices
    perlfaq9.pod:    s/<(?:[^>'"]*|(['"]).*?\1)*>//gs
    perlfaq9.pod:              A \s+ HREF \s* = \s* (["']) (.*?) \1
    perlfunc.pod:       system "stty", '-icanon', 'eol', "\001";
    perlfunc.pod:    open(FOO, "< $file\0");
    perlfunc.pod:    unpack 'W/a', "\04Gurusamy";            gives ('Guru')
    perlfunc.pod:    pack 'n/a* w/a','hello,','world';       gives "\000\006hello,\005world"
    perlfunc.pod:    # foo eq "AB\0\0CD"
    perlfunc.pod:    # "\1\0\2\0" on little-endian
    perlfunc.pod:    # "\0\1\0\2" on big-endian
    perlfunc.pod:    # "abcdefg\0\0\0\0\0\0\0"
    perlguts.pod:    PV = 0x8135781 ( "1" . ) "2345"\0
    perlguts.pod:    \0 PERL_MAGIC_sv             vtbl_sv         Special scalar variable
    perlguts.pod:    char *utf = "\305\233\340\240\201";
    perlhack.pod:      CX 1: EVAL   => AV()  PV("A"\0)
    perlhack.pod:      CX 1: EVAL   => AV()  PV("A"\0)
    perlhack.pod:    4   PV = 0xa0484e0 "hello"\0
    perlhack.pod:    12      *SvEND(sv) = '\0';
    perlhack.pod:    PV = 0xa06a510 "6XXXX"\0
    perlhack.pod:  printf("10umber = %d\10");
    perlipc.pod:    my $EOL = "\015\012";
    perlipc.pod:    my $EOL = "\015\012";
    perlipc.pod:    $EOL = "\015\012";
    perlipc.pod:    substr($buff, index($buff, "\0")) = '';
    perlmod.pod:    *PI = \3.14159265358979;
    perlmodinstall.pod:    perl -i.bak -pe 's/(?:\015)?\012/\015/g' <filenames>
    perlmodlib.PL:     $perlname =~ s!\b(\w+)/\1\b!$1!;
    perlnetware.pod:    perl -Ic:/perl/5.6.1/lib/NetWare-x86-multi-thread -Ic:\perl\5.6.1\lib MakeFile.pl
    perlnetware.pod:    perl -Ic:/perl/5.8.0/lib/NetWare-x86-multi-thread -Ic:\perl\5.8.0\lib MakeFile.pl
    perlnetware.pod:          perl -Ic:/perl/5.6.1/lib/NetWare-x86-multi-thread -Ic:\perl\5.6.1\lib MakeFile.pl
    perlnetware.pod:          perl -Ic:/perl/5.8.0/lib/NetWare-x86-multi-thread -Ic:\perl\5.8.0\lib MakeFile.pl
    perlop.pod:    \033 octal char      (example: ESC)
    perlop.pod:    tr [\200-\377]
    perlop.pod:       [\000-\177];              # delete 8th bit
    perlop.pod:    open(FOO, "echo *.c | tr -s ' \t\r\f' '\\012\\012\\012\\012'|");
    perlopentut.pod:    open(FH, "< $file\0")   || die "can't open $file: $!";
    perlopentut.pod:        $_ .= "\0";
    perlopentut.pod:    print TTYOUT "+++at\015";
    perlpacktut.pod:   my $n = $env =~ tr/\0// - 1;
    perlport.pod:    print SOCKET "Hi there, client!\015\012";  # RIGHT
    perlport.pod:    local($/) = LF;      # not needed if $/ is already \012
    perlport.pod:    #   s/\015?\012/\n/; # same thing
    perlport.pod:    $data =~ s/\015?\012/\n/g;
    perlport.pod:    LF  eq  \012  eq  \x0A  eq  \cJ  eq  chr(10)  eq  ASCII 10
    perlport.pod:    CR  eq  \015  eq  \x0D  eq  \cM  eq  chr(13)  eq  ASCII 13
    perlport.pod:    LF  eq  \025  eq  \x15  eq  \cU  eq  chr(21)  eq  CP-1047 21
    perlport.pod:    LF  eq  \045  eq  \x25  eq           chr(37)  eq  CP-0037 37
    perlport.pod:    CR  eq  \015  eq  \x0D  eq  \cM  eq  chr(13)  eq  CP-1047 13
    perlport.pod:    CR  eq  \015  eq  \x0D  eq  \cM  eq  chr(13)  eq  CP-0037 13
    perlport.pod:    if ("\t" eq "\05")   { print "EBCDIC may be spoken here!\n"; }
    perlport.pod:    Directory and File =~ m|[^\0- "\.\$\%\&:\@\\^\|\177]+|
    perlre.pod:    \033 octal char            (example: ESC)
    perlre.pod:    \1       Backreference to a specific group.
    perlre.pod:    /(.)\1/                         # find first doubled char
    perlre.pod:    /(?'char'.)\1/                  # ... mix and match
    perlre.pod:    ( (?i) blah ) \s+ \1
    perlre.pod:    $pattern =~ s/(\W)/\\\1/g;
    perlre.pod:    s/(\d+)/ \1 + 1 /eg;         # causes warning under -w
    perlre.pod:    s/(\d+)/\1000/;
    perlrebackslash.pod: \000              Octal escape sequence.
    perlrebackslash.pod: \1                Absolute backreference.
    perlrebackslash.pod: $str =~ /\120/;    # Match, "\120" is "P".
    perlrebackslash.pod: $str =~ /\120+/;   # Match, "\120" is "P", it is repeated at least once.
    perlrebackslash.pod: $str =~ /P\053/;   # No match, "\053" is "+" and taken literally.
    perlrebackslash.pod: /^($pat)\1000$/;   #  Matches 'aa'; there are 1000 capture groups.
    perlrebackslash.pod: /^$pat\1000$/;     #  Matches 'a@0'; there are 999 capture groups
    perlrebackslash.pod:                    #    and \1000 is seen as \100 (a '@') and a '0'.
    perlrebackslash.pod: /(\w+) \1/;    # Finds a duplicated word, (e.g. "cat cat").
    perlrebackslash.pod: /(.)(.)\2\1/;  # Match a four letter palindrome (e.g. "ABBA").
    perlrebackslash.pod: $str =~ s/(.)\K\1//g;     # Delete duplicated characters.
    perlrequick.pod:    "cat"        =~ /\143\x61\x74/ # matches, but a weird way to spell cat
    perlrequick.pod:    /(\w\w\w)\s\1/; # find sequences like 'the the' in string
    perlrequick.pod:    /(\w+)\s+\1/;    # match doubled words of arbitrary length
    perlreref.pod:   \1, \2, \3 ...           Matches the text from the Nth group
    perlreref.pod:   \037     Any octal ASCII value
    perlretut.pod:    "1000\t2000" =~ /\000\t2/ # doesn't match, "0" ne "\000"
    perlretut.pod:    "cat"        =~ /\143\x61\x74/ # matches, but a weird way to spell cat
    perlretut.pod:    /\b(\w\w\w)\s\1\b/;
    perlretut.pod:    % simple_grep '^(\w\w\w\w|\w\w\w|\w\w|\w)\1$' /usr/dict/words
    perlretut.pod:    $a99a = '([a-z])(\d)\2\1';   # matches a11a, g22g, x33x, etc.
    perlretut.pod:    /(\w+)\s+\1/;    # match doubled words of arbitrary length
    perlretut.pod:    % simple_grep '^(\w+)\1$' /usr/dict/words   # isn't this easier?
    perlretut.pod:    % simple_grep '^(\w+)(\w+)?(?(2)\2\1|\1)$' /usr/dict/words
    perlsymbian.pod:    C:\Symbian\8.0a\S60_2nd_FP2\epoc32\build\symbian\perl\perl\wins\perl.dsw
    perlsyn.pod:      (?:\s("?)([^"]+)\2)? \s*
    perltoot.pod:        _CENSUS => \1,
    perlunicode.pod:          defined && /[^\000-\177]/ && Encode::_utf8_on($_);
    perlunicode.pod:            defined && /[^\000-\177]/ && Encode::_utf8_on($_) for $ret->{$k};
    perlunicode.pod:          defined && /[^\000-\177]/ && Encode::_utf8_on($_) for $ret;
    perlvar.pod:    local $/ = \32768; # or \"32768", or \$var_containing_32768
    perlwin32.pod:    set PATH=c:\perl\5.6.0\bin;c:\perl\5.6.0\bin\MSWin32-x86;%PATH%

Grepping for \\\d in PPT project code:

    pptbin/cat: range I<\000> - I<\037>, with the exception of tabs and linefeeds, are
    pptbin/cat: printed as I<^X>, where I<X> is the symbol I<\0100> higher. I<DEL> is
    pptbin/dc: $line =~ tr/|~/\36\37/;
    pptbin/dc: ($line = $2) =~ tr/\36\37/|~/;
    pptbin/dc: /\|\?[KIO]/ && s/(.*\|([KIO])([^|]*).*\|\?\2)/$3~$1/s;
    pptbin/dc: tr/\36\37/|~/;
    pptbin/dc: s/^(.)0(.*\|r\1([^~|]*)~)/$1$3$2/s;
    pptbin/dc: s/^(.)(.*\|r\1)([^~|]*~)/|$3$2/s;
    pptbin/dc: /^(.).*\|r\1/s || s/((.).*\|)/$1r$2|/s;
    pptbin/dc: /\|\?S/        && s/((.).*\|r\2)/$1~/s;
    pptbin/dc: s/(.)([^~]*~)(.*\|r\1)[^~|]*~?/$3$2/s;
    pptbin/dc: s/^([^;]*)([1-9])(0*)([^1]*\2(.)[^;]*\3(9*).*\|\?.)[^~]*~/$1$5$6$4/s;
    pptbin/dc: $line =~ tr/|~/\36\37/;
    pptbin/dc: s/^([^;]*)([1-9])(0*)([^1]*\2(.)[^:]*\3(9*)[^,]*),(\d)/$1$5$6$4$7,/;
    pptbin/dc: s/^([^,]*),(-*)([0-F])([^;]*(.)\3[^1;]*(1*))/I*+$1$2$6$5~,$2$4/;
    pptbin/dc: $line =~ tr/|~/\36\37/;
    pptbin/dc: /^<([^,]*,[^~]*)\.*0*~\1\.*0*~/ && s/</=/;
    pptbin/dc: /^<([^~]*)([^~])[^~]*~\1(.).*\|=.*\3.*\2/s && s/</>/;
    pptbin/dc: s/^([<>])(-[^~]*~-.*\1)(.)/$3$2/s;
    pptbin/dc: s/^(.)(.*\|\?!*)\1/$2!$1/s;
    pptbin/dc: s/(-*)\1\|=.*/;9876543210;9876543210/;
    pptbin/dc: s/^>([^~]*~)([^~]*~)s(-*)(-*o\3(-*))/>$2$1s$5$4/;
    pptbin/dc: s {(.?)(~[^,]*)(\d)(\.*),([^;]*)(;([^;]*(\3[^;]*)).*\1(.*))}
    pptbin/dc: (/!\d/ && s/(:[^;]*)([1-9])(0*)([^0]*\2(.).*\3(9*))/$1$5$6$4/)
    pptbin/dc: s/(-*)\1([^>]*).*/;$2^>:9876543210aaaaaaaaa/;
    pptbin/dc: s{>(\d)(.*\1.{9}(a*))}
    pptbin/dc: s/(;[^<]*)(\d)<([^;]*).*\2\d*(.*)/$4$1<$2$3/;
    pptbin/dc: s/~(-*)\1(-*);0*([^;]*\d)[^~]*/~123456789743222111~$2$3/;
    pptbin/dc: s/(.(.)[^~]*)[^9]*\2.{8}(.)[^~]*/$3~$1/s;
    pptbin/dc: s/(\d);(.*\1([d*]*)[^l]*([^*]*)(\**))/;dd*d**d*$4$3$5$2/;
    pptbin/deroff: s/\\0/ /g;                      # replace \0 with space
    pptbin/expand: if($c eq "\010") {  # backspace
    pptbin/file: while (defined($ch) && $ch ne "\0" && $ch ne "\n") {
    pptbin/file: # '0' means read to \0 or \n.
    pptbin/glob: then a NUL character ("\0") is used to separate the expanded words
    pptbin/glob: my @escapes = ( '\\\\' => "\001",
    pptbin/glob: '\{'   => "\002",
    pptbin/glob: '\}'   => "\003",
    pptbin/glob: '{}'   => "\004"
    pptbin/glob: s/([\001-\004])/$unmap_esc{$1}/ge;
    pptbin/glob: $\ = $opt_0 ? "\0" : "\n";
    pptbin/ls: my $WinSize = "\0" x 8;       # window size buffer
    pptbin/man: # ${MANALT}/${machine}/man(.+)/*.\11*
    pptbin/man: $winsize = "\0" x 8;
    pptbin/man: ($cmd, $page, $section, $desc) = split(/\001/, $entry);
    pptbin/man: @tmplist = split(/\002/, $entry);
    pptbin/man: if (/\001/) {
    pptbin/man: grep(/[^\001]+\001[^\001]+\001${ext}\001/ || /[^\001]+${ext}\001/,
    pptbin/man: ($cmd, $page, $section, $desc) = split(/\001/, $entry);
    pptbin/man: ($ans = <STDIN>) ? chop($ans) : ($ans = "\004");
    pptbin/man: exit if $ans eq "\004";
    pptbin/man: last if $idx_topic eq "\004";
    pptbin/man: last if $idx_topic eq "\004" || $idx_topic eq '0';
    pptbin/man: ($_ = <STDIN>) ? chop : ($_ = "\004");
    pptbin/man: $_ = "\004" if 'quit' =~ /^$_/;
    pptbin/man: if ($last eq "\033") {
    pptbin/man: s/\033\+/\001/;
    pptbin/man: s/\033\,/\002/;
    pptbin/man: if ( /^([^\001]*)\002/ || /^([^\002]*)\001/ )  {
    pptbin/od: 0  => ' \0',
    pptbin/rm: $ff = "\0xFF";
    pptbin/rm: $text = "\0" x $size;
    pptbin/tar: return undef if $buf =~ /^\0{512}/;
    pptbin/tar: $info{$key} =~ s/\0(?:.|\n)*$//;
    pptbin/tr: honored, such as C<\n> for newline, C<\012> for octal, and C<\x0A>
    pptbin/tr: tr "\200-\377" "\000-\177"
    pptbin/tr: tr -CU "\0-\xFF" "" 
    pptbin/tr: tr -UC "\0-\x{FF}" "" 
    pptbin/unexpand: if($c eq "\010") {
    pptbin/what: if ((! $stop_flag) && ($line =~ /\0/)) ## there may be more than 1 in here
    pptbin/what: my @F = split(/\0/,$line);
    pptbin/what: $f =~ s|[">\0\\].*||; ##BSD spec says print to 1st " > \ or null
    pptbin/what: $line =~ s|[">\0\\].*||; ##BSD spec says print to 1st " > \ or null

Grepping for \\\d *ONLY* in the example code from Camel and the Cookbook:

    camel3-examples:if ( "fred" & "\1\2\3\4" ) { ... }
    camel3-examples:if ( ("fred" & "\1\2\3\4") =~ /[^\0]/ ) { ... }
    camel3-examples:                    \1        # and that chunk again
    camel3-examples:1 while s/\b(\w+) \1\b/$1/gi;
    camel3-examples:tr [\200-\377]
    camel3-examples:   [\000-\177];              # strip 8th bit, bytewise
    camel3-examples:/\b(\w+) \1\b/i
    camel3-examples:if ("$a $b" =~ /^(\w+)(\w+) \2(\w+)$/) {
    camel3-examples:1 while s/\b(\w+) \1\b/$1/gi;
    camel3-examples:s/ \b(\w+) \s (?= \1\b ) //gxi;
    camel3-examples:s/ \b(\w+) \s (?= \1\b (?! '\w))//xgi;
    camel3-examples:s/ \b(\w+) \s (?= \1\b (?! '\w | \s particular))//gix;
    camel3-examples:s/ \b(\w+) \s (?= \1\b (?! '\w | \s particular | \s nation))//igx;
    camel3-examples:s/ \b(\w+) \s (?= \1\b (?! '\w | \s (?: @thatthat )))//xig;
    camel3-examples:s/ \b(\w+) \s (?= \1\b (?! '\w | (?<= that) \s (?: @thatthat )))//ixg;
    camel3-examples:$constref  = \186_282.42;
    camel3-examples:*PI = \3.14159265358979;
    camel3-examples:tr/\0-\x{10ffff}/\0-\xff?/;       # utf8 to latin1 char
    camel3-examples:    substr($buff, index($buff, "\0")) = '';
    camel3-examples:print SOCKET "Hi there, client!\015\012";  # right
    camel3-examples:local ($/) = LF;     # not needed if $/ is already \012
    camel3-examples:$data =~ s/\015?\012/\n/g;
    camel3-examples:$/ = \32768; # or \"32768" or \$scalar_var_containing_32768
    camel3-examples:$alias = $aliases{"postmaster\0"};
    camel3-examples:  system "stty", "-icanon", "eol", "\001";
    camel3-examples:open (FH, "< $path\0") or die "can't open $path: $!";
    camel3-examples:unpack 'C/a', "\04Gurusamy";        gives 'Guru'
    camel3-examples:pack 'n/a* w/a*','hello,','world';  gives "\000\006hello,\005world"
    camel3-examples:$out = pack "CCxxCC", 65, 66, 67, 68;    # $out eq "AB\0\0CD"
    camel3-examples:$out = pack "s2", 1, 2;    # "\1\0\2\0" on little-endian
    camel3-examples:                           # "\0\1\0\2" on big-endian
    camel3-examples:$out = pack "a14", "abcdefg";   # "abcdefg\0\0\0\0\0\0\0"
    pcb2-examples/ch04/04-02.plx:    my $winsize = "\0" x 8;
    pcb2-examples/ch06/06-08.plx:for ($N = ('o' x shift); $N =~ /^(oo+?)\1+$/; $N =~ s/$1/o/g) {
    pcb2-examples/ch07/07-08.plx:# Mac *must* have \015\012\015\012 instead of \n\n here.
    pcb2-examples/ch08/08-05.plx:$/ = "\000";
    pcb2-examples/ch08/08-06.plx:$/ = "\0";
    pcb2-examples/ch08/08-06.plx:    while (/([\040-\176\s]{4,})/g) {
    pcb2-examples/ch14/14-07.plx:        $nulled_href = $href . ($add_nulls && "\0");
    pcb2-examples/ch15/15-02.plx:    s/([\200-\377])/sprintf("M-%c",ord($1) & 0177)/eg;
    pcb2-examples/ch15/15-02.plx:    s/([\0-\37\177])/sprintf("^%c",ord($1) ^ 0100)/eg;
    pcb2-examples/ch20/20-03.plx:$_ = encode_entities($_, "\200-\377");

Grepping for \\\d in my own scripts directory:

    scripts/apropos: $_ = "\004" if 'quit' =~ /^$_/;
    scripts/apropos: ($_ = <STDIN>) ? chop : ($_ = "\004");
    scripts/apropos: # ${MANALT}/${machine}/man(.+)/*.\11*
    scripts/apropos: ($ans = <STDIN>) ? chop($ans) : ($ans = "\004");
    scripts/apropos: ($cmd, $page, $section, $desc) = split(/\001/, $entry);
    scripts/apropos: ($cmd, $page, $section, $desc) = split(/\001/, $entry);
    scripts/apropos: exit if $ans eq "\004";
    scripts/apropos: grep(/[^\001]+\001[^\001]+\001${ext}\001/ || /[^\001]+${ext}\001/,
    scripts/apropos: if ( /^([^\001]*)\002/ || /^([^\002]*)\001/ )  {
    scripts/apropos: if (/\001/) {
    scripts/apropos: if ($last eq "\033") {
    scripts/apropos: last if $idx_topic eq "\004";
    scripts/apropos: last if $idx_topic eq "\004" || $idx_topic eq '0';
    scripts/apropos: s/\033\+/\001/;
    scripts/apropos: s/\033\,/\002/;
    scripts/apropos: @tmplist = split(/\002/, $entry);
    scripts/apropos: $winsize = "\0" x 8;
    scripts/badman: $_ = "\004" if 'quit' =~ /^$_/;
    scripts/badman: ($_ = <STDIN>) ? chop : ($_ = "\004");
    scripts/badman: # ${MANALT}/${machine}/man(.+)/*.\11*
    scripts/badman: ($ans = <STDIN>) ? chop($ans) : ($ans = "\004");
    scripts/badman: ($cmd, $page, $section, $desc) = split(/\001/, $entry);
    scripts/badman: ($cmd, $page, $section, $desc) = split(/\001/, $entry);
    scripts/badman: exit if $ans eq "\004";
    scripts/badman: grep(/[^\001]+\001[^\001]+\001${ext}\001/ || /[^\001]+${ext}\001/,
    scripts/badman: if ( /^([^\001]*)\002/ || /^([^\002]*)\001/ )  {
    scripts/badman: if (/\001/) {
    scripts/badman: if ($last eq "\033") {
    scripts/badman: last if $idx_topic eq "\004";
    scripts/badman: last if $idx_topic eq "\004" || $idx_topic eq '0';
    scripts/badman: s/\033\+/\001/;
    scripts/badman: s/\033\,/\002/;
    scripts/badman: @tmplist = split(/\002/, $entry);
    scripts/badman: $winsize = "\0" x 8;
    scripts/bold: if ( /^([^\001]*)\002/ || /^([^\002]*)\001/ )  {
    scripts/bold: s/\033\+/\001/;
    scripts/bold: s/\033\,/\002/;
    scripts/bug: $hostname = "\0" x 100;   # pre-nulled buffer for hostname
    scripts/bug: $hostname =~ s/[\0\s]*$//;  # get rid of nasty nulls
    scripts/bug: print STDERR "\nInterrupted\007 -- continue? ";
    scripts/bug: $sysinfo = "\0" x $SYSINFO_SIZE;
    scripts/c2ph: #         s/(\w)(\1+)/$2 . length($1)/ge;
    scripts/c2ph: 1 while s/(\w) \1/$1$1/g;
    scripts/c2ph: if (/^StB\000/ && length($_) == length($_main{'_main'})) {
    scripts/c2ph: s/([^\0]*)/'$1'/ unless /^-?[\d.]+$/;
    scripts/c2ph: s/([\0-\37\177])/sprintf("^%c",ord($1)^64)/eg;
    scripts/c2ph: s/([\200-\377])/sprintf("M-%c",ord($1)&0177)/eg;
    scripts/c2ph,v: #       s/(\w)(\1+)/$2 . length($1)/ge;
    scripts/c2ph,v: 1 while s/(\w) \1/$1$1/g;
    scripts/c2ph,v: if (/^StB\000/ && length($_) == length($_main{'_main'})) {
    scripts/c2ph,v: s/([^\0]*)/'$1'/ unless /^-?[\d.]+$/;
    scripts/c2ph,v: s/([\0-\37\177])/sprintf("^%c",ord($1)^64)/eg;
    scripts/c2ph,v: s/([\200-\377])/sprintf("M-%c",ord($1)&0177)/eg;
    scripts/catwhatis: ($cmd, $page, $section, $desc) = split(/\001/);
    scripts/catwhatis: for (split(/\002/, $value)) {
    scripts/catwhatis: if (/\001/) {
    scripts/cfman: ($cmd, $page, $sect, $desc) = split(/\001/, $entry);
    scripts/cfman: ($cmd, $page, $section, $desc) = split(/\001/);
    scripts/cfman: for (split(/\002/, $value)) {
    scripts/cfman: if (/\001/) {
    scripts/cfman: if (/\001/) {  # don't do indirects
    scripts/cfman: $pname =~ y/A-Z/a-z/ if $pname =~ /^[\$0-9A-Z_\055]+$/;
    scripts/cfman: @tmplist = split(/\002/, $entry);
    scripts/cfoq: while (/^(([^\w\s]+).*\n)(\2.*\n)+/mg) {  # YANETUT
    scripts/check_fascistly_overquoted: while (/^(([^\w\s]+).*\n)(\2.*\n)+/mg) {  # YANETUT
    scripts/ck822: 0)<>@,;:".\\\[\]\000-\037\x80-\xff]+(?![^(\040)<>@,;:".\\\[\]\000-\037\x80-
    scripts/ck822: >@,;:".\\\[\]\000-\037\x80-\xff]+(?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xf
    scripts/ck822: ,;:".\\\[\]\000-\037\x80-\xff]+(?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]
    scripts/ck822: \000-\037\x80-\xff]+(?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff])|\[(?:[^\\
    scripts/ck822: \\[\]\000-\037\x80-\xff]+(?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff])|"(?:
    scripts/ck822: ,;:".\\\[\]\000-\037\x80-\xff])|\[(?:[^\\\x80-\xff\n\015\[\]]|\\[^\x80-\xff
    scripts/ck822: :".\\\[\]\000-\037\x80-\xff])|"(?:[^\\\x80-\xff\n\015"]|\\[^\x80-\xff])*"))
    scripts/ck822: 0-\037\x80-\xff]+(?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff])|\[(?:[^\\\x8
    scripts/ck822: \015()]|\\[^\x80-\xff])*\))*\))*(?:(?:[^(\040)<>@,;:".\\\[\]\000-\037\x80-\
    scripts/ck822: \015()]|\\[^\x80-\xff])*\))*\))*(?:[^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff
    scripts/ck822: 015()]|\\[^\x80-\xff]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff])*\))*\))*
    scripts/ck822: 015()]|\\[^\x80-\xff]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff])*\))*\))*)
    scripts/ck822: 015()]|\\[^\x80-\xff]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff])*\))*\))*@
    scripts/ck822: \037\x80-\xff]+(?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff])|\[(?:[^\\\x80-
    scripts/ck822: -\037\x80-\xff])|"(?:[^\\\x80-\xff\n\015"]|\\[^\x80-\xff])*")(?:(?:[\040\t]
    scripts/ck822: ?(?:[^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+(?![^(\040)<>@,;:".\\\[\]\000
    scripts/ck822: ]+(?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff])|\[(?:[^\\\x80-\xff\n\015\[\
    scripts/ck822: ])*\))*\))*\.(?:[\040\t]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff]|\((?:[^
    scripts/ck822: ])*\]))*(?:[\040\t]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff]|\((?:[^\\\x8
    scripts/ck822: *(?:[\040\t]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff]|\((?:[^\\\x80-\xff\
    scripts/ck822: (?:[\040\t]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff]|\((?:[^\\\x80-\xff\n
    scripts/ck822: (?:[\040\t]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff]|\((?:[^\\\x80-\xff\n
    scripts/ck822: :[\040\t]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff]|\((?:[^\\\x80-\xff\n\0
    scripts/ck822: 0\t]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff]|\((?:[^\\\x80-\xff\n\015()]
    scripts/ck822: 0-\xff\n\015()]|\\[^\x80-\xff])*\))*\))*>)(?:[\040\t]|\((?:[^\\\x80-\xff\n\
    scripts/ck822: 0-\xff\n\015\[\]]|\\[^\x80-\xff])*\]))*)*:(?:[\040\t]|\((?:[^\\\x80-\xff\n\
    scripts/ck822: 15()]|\\[^\x80-\xff])*\))*\))*@(?:[\040\t]|\((?:[^\\\x80-\xff\n\015()]|\\[^
    scripts/ck822: 37\x80-\xff]+(?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff])|"(?:[^\\\x80-\xf
    scripts/ck822: 5()]|\\[^\x80-\xff]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff])*\))*\))*,(?
    scripts/ck822: 7]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff]|\((?:[^\\\x80-\xff\n\015()]|\
    scripts/ck822: 80-\xff]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff])*\))*\))*(?:[^(\040)<>@
    scripts/ck822: ff])*\))*\))*\.(?:[\040\t]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff]|\((?:
    scripts/ck822: f\n\015"]|\\[^\x80-\xff])*")(?:[^()<>@,;:".\\\[\]\x80-\xff\000-\010\012-\03
    scripts/ck822: f]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff])*\))*\))*(?:[^(\040)<>@,;:".\
    scripts/ck822: f])|\[(?:[^\\\x80-\xff\n\015\[\]]|\\[^\x80-\xff])*\])(?:(?:[\040\t]|\((?:[^
    scripts/ck822: f]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff])*\))*\))*\.(?:[\040\t]|\((?:[
    scripts/ck822: n\015()]|\\[^\x80-\xff])*\))*\))*@(?:[\040\t]|\((?:[^\\\x80-\xff\n\015()]|\
    scripts/ck822: |\\[^\x80-\xff])*\))*\))*(?:@(?:[\040\t]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x
    scripts/ck822: ]]|\\[^\x80-\xff])*\])(?:(?:[\040\t]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\
    scripts/ck822: ]|\\[^\x80-\xff])*")(?:(?:[\040\t]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xf
    scripts/ck822: ^\x80-\xff])*\))*\))*\.(?:[\040\t]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xf
    scripts/ck822: (?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff])*\))*\))*(?:[^(\040)<>@,;:".\\\[\]
    scripts/ck822: [^\\\x80-\xff\n\015()]|\\[^\x80-\xff])*\))*\))*(?:[^(\040)<>@,;:".\\\[\]\00
    scripts/ck822: \\\x80-\xff\n\015()]|\\[^\x80-\xff])*\))*\))*(?:[^(\040)<>@,;:".\\\[\]\000-
    scripts/ck822: \x80-\xff\n\015\[\]]|\\[^\x80-\xff])*\]))*|(?:[^(\040)<>@,;:".\\\[\]\000-\0
    scripts/ck822: )|\[(?:[^\\\x80-\xff\n\015\[\]]|\\[^\x80-\xff])*\])(?:(?:[\040\t]|\((?:[^\\
    scripts/ck822: [^\\\x80-\xff\n\015"]|\\[^\x80-\xff])*"))*(?:[\040\t]|\((?:[^\\\x80-\xff\n\
    scripts/ck822: |\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff]|\((?:[^\\\x80-\xff\n\015()]|\\[
    scripts/ck822: :[^\\\x80-\xff\n\015()]|\\[^\x80-\xff]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80
    scripts/ck822: :[^\\\x80-\xff\n\015()]|\\[^\x80-\xff]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80
    scripts/ck822: ^\\\x80-\xff\n\015()]|\\[^\x80-\xff]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\
    scripts/ck822: \\\x80-\xff\n\015()]|\\[^\x80-\xff]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\x
    scripts/ck822: \x80-\xff\n\015()]|\\[^\x80-\xff]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff
    scripts/ck822: \[^\x80-\xff])*\))*\)|"(?:[^\\\x80-\xff\n\015"]|\\[^\x80-\xff])*")*<(?:[\04
    scripts/ck822: \[^\x80-\xff]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff])*\))*\))*(?:[^(\04
    scripts/ck822: \x80-\xff]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff])*\))*\))*(?:[^(\040)<
    scripts/ck822: -\xff])*\))*\))*(?:[^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+(?![^(\040)<>@
    scripts/ck822: xff])*\))*\))*(?:[^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+(?![^(\040)<>@,;
    scripts/ck822: xff]+(?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff])|"(?:[^\\\x80-\xff\n\015"
    scripts/ck822: -\xff])*\))*\))*\.(?:[\040\t]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff]|\(
    scripts/ck822: \xff\n\015\[\]]|\\[^\x80-\xff])*\]))*(?:(?:[\040\t]|\((?:[^\\\x80-\xff\n\01
    scripts/ck822: \xff])|\[(?:[^\\\x80-\xff\n\015\[\]]|\\[^\x80-\xff])*\])(?:(?:[\040\t]|\((?
    scripts/ck822: xff]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff])*\))*\))*\.(?:[\040\t]|\((?
    scripts/clip: if ($& =~ /_\010/) {
    scripts/clip: if (/^StB\000/ && length($_) == length($_main{'_main'})) {
    scripts/clip: s/([^\0]*)/'$1'/ unless /^-?[\d.]+$/;
    scripts/clip: s/([\0-\37\177])/sprintf("^%c",ord($1)^64)/eg;
    scripts/clip: s/([\200-\377])/sprintf("M-%c",ord($1)&0177)/eg;
    scripts/dispell: mv -i $i `echo $i | sed -e 's,tomb/\([0-9][0-9]*\)$,\.#\1,'`
    scripts/dispix: foreach $key ( "\0", "\004", "q", "x" ) {
    scripts/dump_cache: $PATH =~ s/[\0\s]+$//;
    scripts/dupwords: push(@hits, sprintf("%5d %s", $NR, $_)) if /\200/;
    scripts/dupwords: push(@hits, sprintf("%5d %s", $NR, $_)) if /\200/;
    scripts/dupwords: s/\200([^\200]+)\200/[* $1 *]/g;
    scripts/dupwords: s/\200([^\200]+)\200/[* $1 *]/g;
    scripts/dupwords: s/\b(\s?)(([A-Za-z]\w*)(\s+\3)+\b)/$1\200$2\200/gi || next;
    scripts/dupwords: s/\b(\s?)(([A-Za-z]\w*)(\s+\3)+\b)/$1\200$2\200/gi || next;
    scripts/EG-proxnthreads/linux-ptree: $line =~ s/\0/ /g;
    scripts/EG-proxnthreads/linux-ptree: $line =~ s/[\s\0]+$//;
    scripts/eurocvt: s/A`/\300/g;
    scripts/eurocvt: s/A'/\301/g;
    scripts/eurocvt: s/A~/\303/g;
    scripts/eurocvt: s/a`/\340/g;
    scripts/eurocvt: s/a'/\341/g;
    scripts/eurocvt: s/a^/\342/g;
    scripts/eurocvt: s/a~/\343/g;
    scripts/eurocvt: s/AE/\306/g;
    scripts/eurocvt: s/ae/\346/g;
    scripts/eurocvt: s/\B!\b/\241/g;
    scripts/eurocvt: s/\B\?\b/\277/g;
    scripts/eurocvt: s/C,/\307/g;
    scripts/eurocvt: s/c,/\347/g;
    scripts/eurocvt: s/E`/\310/g;
    scripts/eurocvt: s/E'/\311/g;
    scripts/eurocvt: s/E^/\312/g;
    scripts/eurocvt: s/e`/\350/g;
    scripts/eurocvt: s/e'/\351/g;
    scripts/eurocvt: s/e^/\352/g;
    scripts/eurocvt: s/I`/\314/g;
    scripts/eurocvt: s/I`/\315/g;
    scripts/eurocvt: s/i`/\354/g;
    scripts/eurocvt: s/i'/\355/g;
    scripts/eurocvt: s/i^/\356/g;
    scripts/eurocvt: s/N~/\321/g;
    scripts/eurocvt: s/n~/\361/g;
    scripts/eurocvt: s/O`/\322/g;
    scripts/eurocvt: s/O'/\323/g;
    scripts/eurocvt: s/O~/\325/g;
    scripts/eurocvt: s/o`/\362/g;
    scripts/eurocvt: s/o'/\363/g;
    scripts/eurocvt: s/o~/\365/g;
    scripts/eurocvt: s/U`/\331/g;
    scripts/eurocvt: s/U'/\332/g;
    scripts/eurocvt: s/U^/\333/g;
    scripts/eurocvt: s/u`/\371/g;
    scripts/eurocvt: s/u'/\372/g;
    scripts/eurocvt: s/Y'/\335/g;
    scripts/exif: # first 6 bytes should be the EXIF header: 'Exif\0\0'
    scripts/exif: die "APP1 does not contain EXIF data\n" if ($header ne "Exif\0\0");
    scripts/exif: $value =~ s/\0+$//;  # remove trailing NULL chars
    scripts/F: @a = split(/[\000]+/,$PASSWD{$_[0]});
    scripts/F: chop($alias = $ALIAS{"$addr\0"});
    scripts/F: unless (defined $ALIAS{"$addr\0"}) {
    scripts/fastlinks: while (/< \s* A \s+ HREF \s* = \s* (["']) (.*?) \1 > /gsix) {
    scripts/ga: @a = split(/[\000]+/,$PASSWD{$_[0]});
    scripts/ga: chop($alias = $ALIASES{"$addr\0"});
    scripts/ga: unless (defined $ALIASES{"$addr\0"}) {
    scripts/getalias: @a = split(/[\000]+/,$PASSWD{$_[0]});
    scripts/getalias: $addr .= "\0";
    scripts/getalias: return map { /([^\0]+)/ } @list;
    scripts/getw: xwininfo -id $id | awk -f ~/bin/xawk | sed 's/(\(.*\))/\1/'
    scripts/ggh: $nulled_href = $href . ($add_nulls && "\0");
    scripts/h2ph: if (s/\200.*//) {           # begin multi-line comment?
    scripts/h2ph: if (s:/\*:\200:g) {
    scripts/h2ph: s/\200[^\201]*\201//g;      # delete single line comments
    scripts/h2ph: s:\*/:\201:g;
    scripts/htmlchek: "!-- comment not terminated by \042--\042 ERROR!",
    scripts/htmlchek: "\042 ERROR!", &crl(), 'on tag', $lasttag, 'option',
    scripts/htmlchek: /^[^=\042]*(=\042[^\042]*\042)?$/) ||
    scripts/htmlchek: "Advice: Add ALT=\042\042 to purely decorative images, and meaningful text to others.";}
    scripts/htmlchek: "Aesthetic: ``<X Y=\042z\042>'' syntax may be clearer than ``<X Y = \042z\042>'' syntax.";}
    scripts/htmlchek: (($arr[$i] =~ /^=[^=\042][^=\042]*$/) ||
    scripts/htmlchek: ($arr[$i] =~ /^=\042[^\042]*\042$/))) {
    scripts/htmlchek: ($arr[$i] =~ /^[^=\042]*=(\042)?[^\042]*$/)) {
    scripts/htmlchek: $arr[$i] =~ s/^\075//;
    scripts/htmlchek: die "Filename $fn does not have \042$subtract\042 prefix specified in subtract= option\n".
    scripts/htmlchek: $fromroot = $fn; $fromroot =~ s/\/[^\057]*$/\//;}
    scripts/htmlchek: $fromroot =~ s/\/[^\057]*$/\//;}
    scripts/htmlchek: if ($arr[1] =~ /[=\042]/) {
    scripts/htmlchek: if ($arr[$i] =~ /\042/) {
    scripts/htmlchek: if ($arr[$i] =~ /\042/) {
    scripts/htmlchek: if ($arr[$i] =~ /\042/) {
    scripts/htmlchek: if ($arr[$i] !~ /^[^\042]*\042$/) {
    scripts/htmlchek: if ($arr[$i] =~ /^[^=\042][^=\042]*=$/) {
    scripts/htmlchek: if ($arr[$i] =~ /^\042[^\042]*(\042)?$/) {
    scripts/htmlchek: if ($arr[$i] !~ /[\075]/) {
    scripts/htmlchek: if ($arr[$i] =~ /[\075]/) {
    scripts/htmlchek: if ($invalu =~ /\075/) {
    scripts/htmlchek: if (($optfree) && (($arr[$i] =~ /^=\042/) ||
    scripts/htmlchek: if (($stuperltmp =~ s/\042//g) == 2) {
    scripts/htmlchek: if ($val =~ /#[^\057#]*$/) {
    scripts/htmlchek: if (($val !~ /^[^\057]*:/) && ($val !~ /^\//)) {
    scripts/htmlchek: if (($val =~ /[:\057]\.\.\057/) || ($val =~ /^\.\.\057/)) {
    scripts/htmlchek: if ($val =~ /^http:[^\057]*$/) {
    scripts/htmlchek: "Option name \042$lastopt\042 is not alphanumeric Warning!",
    scripts/htmlchek: print "<A NAME=\042...\042> and ID=\042...\042 locations not " .
    scripts/htmlchek: print "HREF=\042...\042 references not found in the files checked:\n";
    scripts/htmlchek: print $S . "Apparent \042--\042 embedded in comment Warning!",
    scripts/htmlchek: print $S . "Apparent \042--\042 embedded in comment Warning!",
    scripts/htmlchek: print $S . "Bad <BASE HREF=\042...\042>", &crl() . ', Ignoring';}}
    scripts/htmlchek: print $S . "Duplicate location \042#" . $val .
    scripts/htmlchek: print $S . "Invalid #-initial location \042" .
    scripts/htmlchek: print $S . "Unquoted non-alphanumeric option value \042" .
    scripts/htmlchek: print $S . "Unresolved \042../\042 in URL Warning!",
    scripts/htmlchek: print $S . "Was a dangling file-local reference \042$X\042 ERROR!",
    scripts/htmlchek: print "SRC=\042...\042 (and BULLET=\042...\042) references:\n";
    scripts/htmlchek: $Q = ($stuperltmp =~ s/\042//g);
    scripts/htmlchek: return ("at END of file \042" . $fn . "\042");}
    scripts/htmlchek: return ('at line ' . ($.-$FNRbase) . " of file \042" . $fn . "\042");}
    scripts/htmlchek: s/&[\043][0-9][0-9]*;//g;
    scripts/htmlchek: $stuperltmp =~ s/^\075//;
    scripts/htmlchek: $val . "\042 ERROR!", &crl(), 'on tag', $lasttag,
    scripts/htmlchek: $val . "\042 Warning!", &crl(), 'on tag option', $lastopt;}
    scripts/htmlchek: $val =~ s/\042//g; $val =~ s/^ //; $val =~ s/ $//;}
    scripts/htmlchek: $val =~ s/#[^\057#]*$//;}
    scripts/htmlchek: $val =~ s/\057[^\057]*[^\057]\057\.\.\057/\057/;}
    scripts/htmlchek: while ($val =~ /\057[^\057]*[^\057]\057\.\.\057/) {
    scripts/htreltree: \2
    scripts/iotutor: s/([\0-\37\177])/sprintf("^%c",ord($1)^64)/eg;
    scripts/iotutor: s/([\200-\237])/sprintf("\\x%02x",ord($1))/eg;
    scripts/ircthread: #s/(^->[^\0]+)\n[^+]/&bold($1)/ge;
    scripts/ircthread: #s/(^\/[^\0]+)\n[^+]/&bold($1)/ge;
    scripts/ircthread: #s/(^\*\w+\* [^\0]+)\n[^+]/&bold($1)/ge;
    scripts/jcat: $addr =~ s/.*\s(\d+)$/\1/;
    scripts/jfort: $addr =~ s/.*\s(\d+)$/\1/;
    scripts/jlook: $addr =~ s/.*\s(\d+)$/\1/;
    scripts/lexmorph: my $common = @{[ ($src ^ $dst) =~ /\0/g ] };
    scripts/mirror/chat2.pl: $thisaddr = "\0\0\0\0" ;
    scripts/mirror/ftp.pl: push( @expect_args, "^(.*)\\015\\n" );
    scripts/mirror/ftp.pl: push( @expect_args, "$pre(" . $code . " .*)\\015\\n" );
    scripts/mirror/lsparse.pl: s/\015//g;
    scripts/mirror/lsparse.pl: s/\015//g;
    scripts/mirror/lsparse.pl: s/\015//g;
    scripts/mirror/lsparse.pl: s/\015//g;
    scripts/mxperl: 1 while s,(['/"].*?\1),saferepl($1),gi;
    scripts/mxperl: tr/\200-\377/\000-\177/;
    scripts/netnanny: if (/([\202-\237])/) {
    scripts/netnanny: if (/(?=[^\s\b])([\000-\037])/) {
    scripts/netnanny: while (/^(([^\w\s]+).*\n)(\2.*\n)+/mg) {  # YANETUT
    scripts/newsclip: if ($lines[$i] =~ /_\010/) {
    scripts/nfinger: $_[0] .= "\0" if $nulls;
    scripts/nfinger: $_[0] =~ s/\0$// if $nulls;
    scripts/nfinger: @a = split(/[\000]+/,$PASSWD{$_[0]});
    scripts/nfinger: $nulls = $k =~ /\0$/ && $v =~ /\0$/;
    scripts/now-what: } until $#ARGV < 0 || $SW{$switch} =~ /^(['"]).*\1$/;
    scripts/now-what: if ($SW{$switch} =~ /^(['"]).*$/ && $SW{$switch} !~ /^(['"]).*\1$/) {
    scripts/now-what: $SW{$switch} =~ s/^(['"])(.*)\1$/$2/;
    scripts/now-what.pl: } until $#ARGV < 0 || $SW{$switch} =~ /^(['"]).*\1$/;
    scripts/now-what.pl: if ($SW{$switch} =~ /^(['"]).*$/ && $SW{$switch} !~ /^(['"]).*\1$/) {
    scripts/now-what.pl: $SW{$switch} =~ s/^(['"])(.*)\1$/$2/;
    scripts/ns: $nulled_href = $href . ($add_nulls && "\0");
    scripts/nshist-v1: $href .  ($C_programmers_make_dumb_off_by_one_mistakes && "\0");  
    scripts/nwhatnow: } until $#ARGV < 0 || $SW{$switch} =~ /^(['"]).*\1$/;
    scripts/nwhatnow: if ($SW{$switch} =~ /^(['"]).*$/ && $SW{$switch} !~ /^(['"]).*\1$/) {
    scripts/nwhatnow: $SW{$switch} =~ s/^(['"])(.*)\1$/$2/;
    scripts/pathedit: if ($oldname =~ /\0/) {
    scripts/pathedit: local $/ = "\0" if $nullpaths;
    scripts/perlpoint: $it =~ y/\000-\177/\200-\377/;
    scripts/perlpoint: $title =~ y/\200-\377/\000-\177/;
    scripts/perlpoint: y/\200-\377/\000-\177/;
    scripts/perlpoint: y/\200-\377/\000-\177/;
    scripts/perlstyle-talk: $it =~ y/\000-\177/\200-\377/;
    scripts/perlstyle-talk: $nulled_href = $href . ($add_nulls && "\0");
    scripts/perlstyle-talk: $title =~ y/\200-\377/\000-\177/;
    scripts/perlstyle-talk: y/\200-\377/\000-\177/;
    scripts/perlstyle-talk: y/\200-\377/\000-\177/;
    scripts/perl-vdb: if (s/(.*?)\032\032(.*?):(\d+):0\n//) {
    scripts/plumlib/display_function.pl: last if /^\175/;
    scripts/plumlib/msg.pl: print "\n\n\376\375\374", # trick the pager
    scripts/plumlib/x: $cmd =~ s/\\(.)/"\376".ord($1)."\377"/eg;
    scripts/plumlib/x: elsif (/\033/) {
    scripts/plumlib/x: elsif ($c eq "\004") {           # (^D) completion list
    scripts/plumlib/x: elsif ($c eq "\010" || $c eq "\177" || $c eq $'my_erase) {
    scripts/plumlib/x: elsif ($c eq "\022") {
    scripts/plumlib/x: elsif ($c eq "\033") {
    scripts/plumlib/x: elsif ($c gt ' ' && $c lt "\177") {
    scripts/plumlib/x: elsif ($c gt ' ' && $c lt "\177") {
    scripts/plumlib/x: if ($c eq "\010" || $c eq "\177" || $c eq $my_erase) {
    scripts/plumlib/x: if ($c eq "\033") {
    scripts/plumlib/x: if (&continue eq "\033") {
    scripts/plumlib/x: if ($key =~ /^[\002b]/) {
    scripts/plumlib/x: if ($key =~ /^[\006f \r\n]/) {
    scripts/plumlib/x: if (/^StB\000/ && length($_) == length($_main{'_main'})) {
    scripts/plumlib/x: if tr/\0-\37\200-\377//;
    scripts/plumlib/x: $my_erase = "\010";
    scripts/plumlib/x: $my_kill  = "\025";
    scripts/plumlib/x: ($name) = /sub\s+(\w+)\s*\173\s*/;
    scripts/plumlib/x: $Next_Key  = $key unless $key =~ /[Qq \033]/;
    scripts/plumlib/x: print "\007" if $U{'beep'};
    scripts/plumlib/x: print "\n\n\376\375\374", # trick the pager
    scripts/plumlib/x: #print $TC{'vb'} ? $TC{'vb'} : "\007";
    scripts/plumlib/x: &redraw unless &continue eq "\033";
    scripts/plumlib/x: return "\033" unless $Lo_Range || $Count;
    scripts/plumlib/x: s/([\000-\037\177])/'^'.pack('c',ord($1)^64)/eg;
    scripts/plumlib/x: s/([^\0]*)/'$1'/ unless /^-?[\d.]+$/;
    scripts/plumlib/x: s/([\0-\37\177])/sprintf("^%c",ord($1)^64)/eg;
    scripts/plumlib/x: s/([\200-\377])/'M-'.pack('c',ord($1)&0177)/eg;
    scripts/plumlib/x: #s/([\200-\377])/sprintf("\\%03o",ord($1))/eg;
    scripts/plumlib/x: s/([\200-\377])/sprintf("M-%c",ord($1)&0177)/eg;
    scripts/plumlib/x: s/^\376\375\374// || ($_ = &uncontrol($_)) 
    scripts/plumlib/x: s/\376(\d+)\377/pack('C',$1)/eg;
    scripts/plum.v4: $cmd =~ s/\\(.)/"\376".ord($1)."\377"/eg;
    scripts/plum.v4: elsif (/\033/) {
    scripts/plum.v4: elsif ($c eq "\004") {           # (^D) completion list
    scripts/plum.v4: elsif ($c eq "\010" || $c eq "\177" || $c eq $'my_erase) {
    scripts/plum.v4: elsif ($c eq "\022") {
    scripts/plum.v4: elsif ($c eq "\033") {
    scripts/plum.v4: elsif ($c gt ' ' && $c lt "\177") {
    scripts/plum.v4: elsif ($c gt ' ' && $c lt "\177") {
    scripts/plum.v4: if ($c eq "\010" || $c eq "\177" || $c eq $my_erase) {
    scripts/plum.v4: if ($c eq "\033") {
    scripts/plum.v4: if (&continue eq "\033") {
    scripts/plum.v4: if ($key =~ /^[\002b]/) {
    scripts/plum.v4: if ($key =~ /^[\006f \r\n]/) {
    scripts/plum.v4: if (/^StB\000/ && length($_) == length($_main{'_main'})) {
    scripts/plum.v4: if tr/\0-\37\200-\377//;
    scripts/plum.v4: $my_erase = "\010";
    scripts/plum.v4: $my_kill  = "\025";
    scripts/plum.v4: ($name) = /sub\s+(\w+)\s*\173\s*/;
    scripts/plum.v4: $Next_Key  = $key unless $key =~ /[Qq \033]/;
    scripts/plum.v4: print "\007" if $U{'beep'};
    scripts/plum.v4: print "\n\n\376\375\374", # trick the pager
    scripts/plum.v4: #print $TC{'vb'} ? $TC{'vb'} : "\007";
    scripts/plum.v4: &redraw unless &continue eq "\033";
    scripts/plum.v4: return "\033" unless $Lo_Range || $Count;
    scripts/plum.v4: s/([\000-\037\177])/'^'.pack('c',ord($1)^64)/eg;
    scripts/plum.v4: s/([^\0]*)/'$1'/ unless /^-?[\d.]+$/;
    scripts/plum.v4: s/([\0-\37\177])/sprintf("^%c",ord($1)^64)/eg;
    scripts/plum.v4: s/([\200-\377])/'M-'.pack('c',ord($1)&0177)/eg;
    scripts/plum.v4: #s/([\200-\377])/sprintf("\\%03o",ord($1))/eg;
    scripts/plum.v4: s/([\200-\377])/sprintf("M-%c",ord($1)&0177)/eg;
    scripts/plum.v4: s/^\376\375\374// || ($_ = &uncontrol($_)) 
    scripts/plum.v4: s/\376(\d+)\377/pack('C',$1)/eg;
    scripts/plum-v5: $cmd =~ s/\\(.)/"\376".ord($1)."\377"/eg;
    scripts/plum-v5: elsif (/\033/) {
    scripts/plum-v5: elsif ($c eq "\004") {           # (^D) completion list
    scripts/plum-v5: elsif ($c eq "\010" || $c eq "\177" || $c eq $'my_erase) {
    scripts/plum-v5: elsif ($c eq "\022") {
    scripts/plum-v5: elsif ($c eq "\033") {
    scripts/plum-v5: elsif ($c gt ' ' && $c lt "\177") {
    scripts/plum-v5: elsif ($c gt ' ' && $c lt "\177") {
    scripts/plum-v5: if ($c eq "\010" || $c eq "\177" || $c eq $my_erase) {
    scripts/plum-v5: if ($c eq "\033") {
    scripts/plum-v5: if (&continue eq "\033") {
    scripts/plum-v5: if ($key =~ /^[\002b]/) {
    scripts/plum-v5: if ($key =~ /^[\006f \r\n]/) {
    scripts/plum-v5: if (/^StB\000/ && length($_) == length($_main{'_main'})) {
    scripts/plum-v5: if tr/\0-\37\200-\377//;
    scripts/plum-v5: $my_erase = "\010";
    scripts/plum-v5: $my_kill  = "\025";
    scripts/plum-v5: ($name) = /sub\s+(\w+)\s*\173\s*/;
    scripts/plum-v5: $Next_Key  = $key unless $key =~ /[Qq \033]/;
    scripts/plum-v5: print "\007" if $U{'beep'};
    scripts/plum-v5: print "\n\n\376\375\374", # trick the pager
    scripts/plum-v5: #print $TC{'vb'} ? $TC{'vb'} : "\007";
    scripts/plum-v5: &redraw unless &continue eq "\033";
    scripts/plum-v5: return "\033" unless $Lo_Range || $Count;
    scripts/plum-v5: s/([\000-\037\177])/'^'.pack('c',ord($1)^64)/eg;
    scripts/plum-v5: s/([^\0]*)/'$1'/ unless /^-?[\d.]+$/;
    scripts/plum-v5: s/([\0-\37\177])/sprintf("^%c",ord($1)^64)/eg;
    scripts/plum-v5: s/([\200-\377])/'M-'.pack('c',ord($1)&0177)/eg;
    scripts/plum-v5: #s/([\200-\377])/sprintf("\\%03o",ord($1))/eg;
    scripts/plum-v5: s/([\200-\377])/sprintf("M-%c",ord($1)&0177)/eg;
    scripts/plum-v5: s/^\376\375\374// || ($_ = &uncontrol($_)) 
    scripts/plum-v5: s/\376(\d+)\377/pack('C',$1)/eg;
    scripts/pod2man: [^\051]*?
    scripts/pod2man: [^\051]*?
    scripts/pod2man: if ( /[\200-\377]/ ) {
    scripts/pod2man: [^\s,\051]+
    scripts/pod2man: $thing_to_hide =~ tr/\000-\177/\200-\377/;
    scripts/pod2man: tr/\200-\377/\000-\177/;
    scripts/pod2ora: [^\051]*?
    scripts/pod2ora: [^\051]*?
    scripts/pod2ora: [^\s,\051]+
    scripts/pod2ora: s/([\200-\377])/"E<".ord($1).">"/ge;
    scripts/pod2ora: $thing_to_hide =~ tr/\000-\177/\200-\377/;
    scripts/pod2ora: tr/\200-\377/\000-\177/;
    scripts/pstruct.old: # \173 and \175 are innocuous euphemisms for {,} to let `%' work in vi.
    scripts/pstruct.old: } elsif (/\btypedef\s+[^\173]+;\s*$/) {
    scripts/pstruct.old: } elsif (/\b(typedef\s+)?(struct|union)\s*(\w*)\s*\173/) {
    scripts/pstruct.old: } elsif ($lines[$i] =~ /\b(struct|union)\s*(\w*)\s*\173/) { 
    scripts/pstruct.old: if ( $lines[$i] =~ /\175\s*(\S*)\s*;/ ) {
    scripts/pstruct.old: if ( /^\s*\175\s*(\S*)[^;]*;/ ) {
    scripts/pstruct.old: if (s/\200.*//) {       # begin multi-line comment?
    scripts/pstruct.old: if (s:/\*:\200:g) {
    scripts/pstruct.old: print "\n" if $decl !~ /\175/;
    scripts/pstruct.old: s/\200[^\201]*\201//g;  # delete single line comments
    scripts/pstruct.old: s:\*/:\201:g;
    scripts/pull_quotes: grep (tr/\373\375/\173\175/, @quotes) if $xlate;
    scripts/pull_quotes: if ($qchars =~ tr/\173\175/\373\375/) {
    scripts/pull_quotes: ($qstring) = /${d}\{QL$quote_level\}([^\000]*)${d}\{QR$quote_level}/;
    scripts/pull_quotes: $qstring =~ s/\201(\d+)\202/pack('C',$1)/eg;
    scripts/pull_quotes: s/\\(.)/"\201".ord($1)."\202"/eg;   # protect from backslashes
    scripts/pull_quotes: tr/\173\175/\373\375/;
    scripts/qxurl: A \s+ HREF \s* = \s* (["']) (.*?) \1 
    scripts/randline: open(F, "< $file\0") || die "can't open $file: $!";
    scripts/randlines :open(F, "< $file\0") || die "can't open $file: $!";
    scripts/relink: if ($oldname =~ /\0/) {
    scripts/relink: local $/ = "\0" if $nullpaths;
    scripts/reltree: \3
    scripts/rename: if ($oldname =~ /\0/) {
    scripts/rename: if ($oldname =~ /\0/) {
    scripts/rename: local $/ = "\0" if $nullpaths;
    scripts/rename: local $/ = "\0" if $nullpaths;
    scripts/rsa:$m=unpack(H.$w,$m."\0"x$w),$_=`echo "16do$w 2+4Oi0$d*-^1[d2%Sa
    scripts/ShMem.pm: substr($buff, index($buff, "\0")) = '';
    scripts/slowcat: #select(undef,undef,undef, 0.005 * $DELAY) if /[^\000-\040\127-\377]/;
    scripts/slowcat: #select(undef,undef,undef, 0.005 * $DELAY) if /[^\000-\040\127-\377]/;
    scripts/splain.old: # if i had lookbehind negations, i wouldn't have to do this \377 noise
    scripts/splain.old: $lhs =~ s/\377([^\377]*)$/\Q$1\E\$/;
    scripts/splain.old: $lhs =~ s/\377//g;
    scripts/splain.old: $lhs =~ s/(.*?)%s/\Q$1\E.*?\377/g;
    scripts/starfest: print STDERR "\nInterrupted\007 -- continue? ";
    scripts/sz: $winsize = "\0" x 8;
    scripts/tellme: printf tty "\r\n\007Nagged at %s\r\n...%s\r\n\n",
    scripts/tform: s/([\000-\040\177\200-\377])/sprintf("\\%03o", $1)/ge;
    scripts/tform: s/\0/\\0/g;
    scripts/tform: s/\010/\\b/g;
    scripts/unboxit: -e 's/^|[       ]*\(.*\)[       ]*|$/\1/' \
    scripts/unwho: substr($name,0,1) = "\0";
    scripts/vdb: my($file, $line) = /^(?:\032\032)?(.*?):(\d+):(\d+)/;
    scripts/vdb: unless (s/^\032\032//) { 
    scripts/vmscan: $winsize = "\0" x 8;
    scripts/vspell: ($SO, $SE) = ("\033[7m",  "\033[m"); # vt100 standout
    scripts/w: ( $whence = $_[5] ) =~ s/^\((.*)\)$/\1/;
    scripts/whatis: $_ = "\004" if 'quit' =~ /^$_/;
    scripts/whatis: ($_ = <STDIN>) ? chop : ($_ = "\004");
    scripts/whatis: # ${MANALT}/${machine}/man(.+)/*.\11*
    scripts/whatis: ($ans = <STDIN>) ? chop($ans) : ($ans = "\004");
    scripts/whatis: ($cmd, $page, $section, $desc) = split(/\001/, $entry);
    scripts/whatis: ($cmd, $page, $section, $desc) = split(/\001/, $entry);
    scripts/whatis: exit if $ans eq "\004";
    scripts/whatis: grep(/[^\001]+\001[^\001]+\001${ext}\001/ || /[^\001]+${ext}\001/,
    scripts/whatis: if ( /^([^\001]*)\002/ || /^([^\002]*)\001/ )  {
    scripts/whatis: if (/\001/) {
    scripts/whatis: if ($last eq "\033") {
    scripts/whatis: last if $idx_topic eq "\004";
    scripts/whatis: last if $idx_topic eq "\004" || $idx_topic eq '0';
    scripts/whatis: s/\033\+/\001/;
    scripts/whatis: s/\033\,/\002/;
    scripts/whatis: @tmplist = split(/\002/, $entry);
    scripts/whatis: $winsize = "\0" x 8;
    scripts/whatnow: } until $#ARGV < 0 || $SW{$switch} =~ /^(['"]).*\1$/;
    scripts/whatnow: if ($SW{$switch} =~ /^(['"]).*$/ && $SW{$switch} !~ /^(['"]).*\1$/) {
    scripts/whatnow: $SW{$switch} =~ s/^(['"])(.*)\1$/$2/;
    scripts/whenon.dir/LastLog/Entry.pm: return undef if $binstr =~ /^\0\0\0\0/;
    scripts/W.oneill: ( $whence = $_[5] ) =~ s/^\((.*)\)$/\1/;
    scripts/words: $winsize = "\0" x 8;
    scripts/wotcgram: open(F, "< $file\0") || die "can't open $file: $!";
    scripts/xpost: $key .= "\000";

Grepping for \\\d the perl 5.10 lib and ext directories:

    lib/AnyDBM_File.t:$h{'a',2,3,4,5} = join("\034",'A',2,3,4,5);
    lib/AnyDBM_File.t:$h{'jkl','mno'} = "JKL\034MNO";
    lib/Archive/Tar.pm: my $nulls = $$data =~ tr/\0/\0/;
    lib/Archive/Tar.pm: substr($tar,148,7) = sprintf("%6o\0", unpack("%16C*",$tar));
    lib/Archive/Tar.pm: {   my $nulls = join '', "\0" x 12;
    lib/Archive/Tar/Constant.pm:use constant GZIP_MAGIC_NUM => qr/^(?:\037\213|\037\235)/;
    lib/Archive/Tar/Constant.pm:use constant TAR_END        => "\0" x BLOCK;
    lib/Archive/Tar/Constant.pm:use constant TAR_PAD        => sub { my $x = shift || return; return "\0" x (BLOCK - ($x % BLOCK) ) };
    lib/Archive/Tar/File.pm: } map { /^([^\0]*)/ } unpack( UNPACK, $chunk );
    lib/Attribute/Handlers.pm: && eval "use base q\0$tieclass\0; 1";
    lib/B/Deparse.pm: elsif (($to & WARN_MASK) eq ("\0"x length($to) & WARN_MASK)) {
    lib/B/Xref.pm: my ($type, $name) = $namesv->PV =~ /^(.)([^\0]*)(\0.*)?$/;
    lib/CGI.pm: $CRLF = "\015\012";
    lib/CGI.pm: $self->{BUFFER} =~ s/^\012\015?//;
    lib/CGI.pm: $toencode =~ s{\012}{&#10;}gso;
    lib/CGI.pm: $toencode =~ s{\015}{&#13;}gso;
    lib/CGI.pm: @foo = split("\0",$params->{'foo'});
    lib/CGI.pm: local($CRLF) = "\015\012" if $CGI::OS eq 'VMS' || $CGI::EBCDIC;
    lib/CGI.pm: my (@params) = split ("\0", $param);
    lib/CGI.pm: my @vals = index($vals,"\0")!=-1 ? split("\0",$vals) : $vals;
    lib/CGI.pm: return join("\0",$_[0]->param($_[1]));
    lib/CGI.pm:# use ASCII, so \015\012 means something different.  I find this all 
    lib/CGI.pm:$EBCDIC = "\t" ne "\011";
    lib/CGI.pm:string, separated by the "\0" (null) character.  You must split this
    lib/CGI/Carp.pm: $msg =~ tr/<>-/\253\273\255/;
    lib/CGI/Util.pm: $EBCDIC = "\t" ne "\011";
    lib/CGI/Util.pm:$EBCDIC = "\t" ne "\011";
    lib/CGI/t/carp.t:$fname =~ tr/<>-/\253\273\255/; # _warn does this so we have to also
    lib/CGI/t/form.t:my $CRLF = "\015\012";
    lib/CGI/t/function.t:# test would need to be modified to use the "\015\012" on VMS if it
    lib/CGI/t/function.t:my $CRLF = "\015\012";
    lib/CGI/t/html.t:my $CRLF = "\015\012";
    lib/CGI/t/no_tabindex.t:my $CRLF = "\015\012";
    lib/CGI/t/request.t:$p->{bar} = join("\0",qw(foo bar baz));
    lib/CPAN.pm: $eval =~ s/\015?\012/\n/g;
    lib/CPAN.pm: $eval =~ s/\015?\012/\n/g;
    lib/CPAN.pm: $fh = FileHandle->new("<$makefile\0")) {
    lib/CPAN.pm: my @eval2 = split /\012/, $slurp;
    lib/CPAN.pm: my @lines = split /\012/, $slurp;
    lib/CPAN.pm: push @lines, split /\012/ while <FH>;
    lib/CPAN/FirstTime.pm: local $/ = "\012";
    lib/CPANPLUS/Configure/Setup.pm: my $ctrl        = '\000-\037';                   my $CRlist     = '\012\015';
    lib/CPANPLUS/Configure/Setup.pm: my $esc        = '\\\\'; my $Period      = '\.'; my $space      = '\040';
    lib/CPANPLUS/Configure/Setup.pm: my $phrase_ctrl = '\000-\010\012-\037'; # like ctrl, but without tab
    lib/CPANPLUS/Shell/Default.pm: my $end     = "\015\012";
    lib/CPANPLUS/Shell/Default.pm: my $send = join "\0", $user, $pass, $cmd;
    lib/CPANPLUS/Shell/Default.pm: my($status,$buffer) = split "\0", $answer;
    lib/Config.pod:C<\012> and C<\n>.  This is needed for C<EBCDIC> systems where
    lib/Config.pod:newline is not necessarily C<\012>.
    lib/Config.t: like ($result[0], qr/^$pain=(['"])\Q$Config{$pain}\E\1$/, # grr '
    lib/Config_heavy.pl:s/(byteorder=)(['"]).*?\2/$1$2$Config::byteorder$2/m;
    lib/DB.pm: $DB::dbline{$DB::lineno} =~ s/;9($|\0)/$1/;    # clear any temp breakpt
    lib/DB.pm: $DB::dbline{$i} .= "\0" . $act;
    lib/DB.pm: $DB::dbline{$i} =~ s/($|\0)/;9$1/; # add one-time-only b.p.
    lib/DB.pm: $DB::dbline{$i} =~ s/\0[^\0]*//;
    lib/DB.pm: $DB::dbline{$i} =~ s/\0[^\0]*//;
    lib/DB.pm: $DB::dbline{$i} =~ s/\0[^\0]*//;
    lib/DB.pm: $DB::dbline{$i} =~ s/^[^\0]*/$cond/;
    lib/DB.pm: $DB::dbline{$i} =~ s/^[^\0]+//;
    lib/DB.pm: $DB::dbline{$i} =~ s/^[^\0]+//;
    lib/DB.pm: $ret{$i} = [$DB::dbline[$i], split(/\0/, $DB::dbline{$i})] 
    lib/DB.pm: delete $DB::dbline{$i} if $DB::dbline{$i} =~ s/^\0?$//;
    lib/DB.pm: delete $DB::dbline{$i} if $DB::dbline{$i} =~ s/^\0?$//;
    lib/DB.pm: if ($DB::dbline{$i} =~ s/^\0?$//) {
    lib/DB.pm: if ($DB::dbline{$i} =~ s/^\0?$//) {
    lib/DB.pm: if (($stop,$action) = split(/\0/,$DB::dbline{$DB::lineno})) {
    lib/DB.pm: s/([\0-\37\177])/sprintf("^%c",ord($1)^64)/eg;
    lib/DB.pm: s/([\200-\377])/sprintf("M-%c",ord($1)&0177)/eg;
    lib/DB.pm: s/([^\0]*)/'$1'/ unless /^-?[\d.]+$/;
    lib/DB.pm:have the sprintf(3) format C<("%s\000%s", breakcondition, actioncode)>. 
    lib/DB.t: %DB::dbline = (%lines, 5 => "\0" );
    lib/DB.t: %DB::dbline = (%lines, 5 => "\0" );
    lib/DB.t: 1 => "\0",
    lib/DB.t: 1 => "\0",
    lib/DB.t: 1 => "\0",
    lib/DB.t: 1 => "foo\0bar",
    lib/DB.t: 2 => "\0abc",
    lib/DB.t: 3 => "123\0\0\0abc",
    lib/DB.t: 3 => "123\0\0\0abc",
    lib/DB.t: 3 => "123\0abc",
    lib/DB.t: 3 => "boo\0far",
    lib/DB.t: 4 => "\0\0\0abc",
    lib/DB.t: 4 => "\0abc",
    lib/DB.t: 4 => "abc\0",
    lib/DB.t: is( $DB::dbline{1}, "bar\0", 
    lib/DB.t: is( $DB::dbline{1}, "foo\0", 'DB::set_break() should set break condition' );
    lib/DB.t: is( $DB::dbline{2}, "\0def", 
    lib/DB.t: is( $DB::dbline{3}, "\0", '... should set new action' );
    lib/DB.t: is( $DB::dbline{3}, "\0\0\0abc", 
    lib/DB.t: is( $DB::dbline{3}, "\0\0\0abc", '... should remove break, leaving action');
    lib/DB.t: is( $DB::dbline{3}, "\0\0\0abc", '... should remove break, leaving action');
    lib/DB.t: is( $DB::dbline{4}, "1\0abc", '... should use default condition if needed');
    lib/DB.t: is( $DB::dbline{4}, "\0\0\0abc", '... should not remove set actions' );
    lib/DB.t: is( $DB::dbline{4}, "\0\0\0abc", '... should not remove set actions' );
    lib/DB.t: is( $DB::dbline{4}, "abc\0", '... should not remove set breaks' );
    lib/DB.t: is( $DB::dbline{4}, "abc\0", '... should not remove set breaks' );
    lib/DB.t: is( $DB::dbline{4}, "baz\0abc", 
    lib/Data/Dumper.pm: if ($s->{useqq} or $val =~ tr/\0-\377//c) {
    lib/Data/Dumper.pm: s/([\0-\037\177])/'\\'.sprintf('%03o',ord($1))/eg;
    lib/Data/Dumper.pm: s/([\0-\037])(?!\d)/'\\'.sprintf('%o',ord($1))/eg;
    lib/Data/Dumper.pm: s/([\200-\240])/'\\'.sprintf('%o',ord($1))/eg;
    lib/Data/Dumper.pm: s/([\200-\377])/'\\'.sprintf('%03o',ord($1))/eg;
    lib/Data/Dumper.pm: s/([^\040-\176])/sprintf "\\x{%04x}", ord($1)/ge;
    lib/Data/Dumper.pm:#     $str =~ s/([^\040-\176])/sprintf "\\x{%04x}", ord($1)/ge;
    lib/Devel/PPPort.pm: dst[copy] = '\0';
    lib/Devel/PPPort.pm: dst[used + copy] = '\0';
    lib/Devel/PPPort.pm:#  define PERL_MAGIC_sv                  '\0'
    lib/Devel/Peek.pm: PV = 0xb2048 "hello"\0
    lib/Devel/Peek.pm:to see what is in the scalar.  The \0 at the end indicate that this
    lib/Digest/SHA.pm: $buf1 =~ s/\015/\012/g;                 # early MacOS
    lib/Digest/SHA.pm: $buf1 =~ s/\015?\015\012/\012/g;        # DOS/Windows
    lib/Digest/SHA.pm: while (substr($buf1, -1) eq "\015") {
    lib/Digest/t/file.t:print F "foo\0\n";
    lib/DirHandle.t:cmp_ok(+(join("\0", @b), 'eq', join("\0", @c)));
    lib/DirHandle.t:ok(+(join("\0", @a) eq join("\0", @b)));
    lib/Dumpvalue.pm: if (/[\000-\011\013-\037\177]/) {
    lib/Dumpvalue.pm: s/([\000-\037\177])/'\\c'.chr(ord($1)^64)/eg;
    lib/Dumpvalue.pm: s/([\000-\037\177])/'^'.pack('c',ord($1)^64)/eg;
    lib/Dumpvalue.pm: s/([\001-\037\177])/'^'.pack('c',ord($1)^64)/eg;
    lib/Dumpvalue.pm: s/([\200-\377])/'\\'.sprintf('%3o',ord($1))/eg if $self->{quoteHighBit};
    lib/Dumpvalue.pm: s/([\200-\377])/'\\0x'.sprintf('%2X',ord($1))/eg
    lib/Dumpvalue.pm: s/\033/\\e/g;
    lib/Dumpvalue.t:like( Dumpvalue::unctrl("bo\007nd"), qr/bo\^.nd/, 'unctrl should escape' );
    lib/Encode/MIME/Header.pm: s/(\=\?[0-9A-Za-z\-_]+\?[Qq]\?)(.*?)\?\=\1(.*?)\?\=/$1$2$3\?\=/ )
    lib/Encode/Unicode.pm: % perl -MEncode -e '$_ = "\xfe\xff\xd8\xd9\xda\xdb\0\n"' \
    lib/Encode/Unicode.pm: UTF-8       1-4   -   -     bogus   >= 4 octets   \xf0\x9a\af\8d
    lib/ExtUtils/Command.pm: $line =~ s/\015\012/\012/g;
    lib/ExtUtils/Constant/Base.pm: # if ($name !~ tr/\0-\177//c || $] < 5.005_50) {
    lib/ExtUtils/Constant/Base.pm: # if ($name !~ tr/\0-\377//c) {
    lib/ExtUtils/Constant/Base.pm: # tr///c is broken on 5.6.1 for utf8, so my original tr/\0-\177//c
    lib/ExtUtils/Constant/Base.pm: if ($name =~ tr/\0-\177// == length $name || $] < 5.005_50
    lib/ExtUtils/Constant/Base.pm: if ($name =~ tr/\0-\377// == length $name) {
    lib/ExtUtils/Constant/ProxySubs.pm: if ($name =~ tr/\0-\377// != $namelen) {
    lib/ExtUtils/Constant/Utils.pm: $copy .= ($char le "\177") ? $char : sprintf "\\x{%X}", ord $char;
    lib/ExtUtils/Constant/Utils.pm: if (ord('A') == 193) { # EBCDIC has no ^\0-\177 workalike.
    lib/ExtUtils/Constant/Utils.pm: if (ord('A') == 193) { # EBCDIC has no ^\0-\177 workalike.
    lib/ExtUtils/Constant/Utils.pm: if tr/\0-\377// != length;
    lib/ExtUtils/Constant/Utils.pm: s/([^\0-\177])/sprintf "\\%03o", ord $1/ge;
    lib/ExtUtils/Constant/Utils.pm: s/([^\0-\177])/sprintf "\\x%02X", ord $1/ge;
    lib/ExtUtils/Constant/Utils.pm: s/([^\0-\177])/sprintf "\\x{%X}", ord $1/ge;
    lib/ExtUtils/MM_VMS.pm: $npath =~ s{\0$}{};
    lib/ExtUtils/MM_Win32.pm: while ($libs =~ s/(?:^|\s)(("?)-L.+?\2)(?:\s|$)/ /) {
    lib/ExtUtils/Manifest.pm: if (open(T,"< $to\0")) {
    lib/ExtUtils/Manifest.pm: open(F,"< $from\0") or die "Can't read $from: $!\n";
    lib/ExtUtils/ParseXS.pm:#    *errbuf = '\0';
    lib/ExtUtils/t/Constant.t: if ($string =~ tr/0-\377// == length $string) {
    lib/ExtUtils/t/Constant.t: value=>['"not ok 7\\n\\0ok 7\\n"', 15]},
    lib/ExtUtils/t/Constant.t:# PVN containing embedded \0s
    lib/ExtUtils/t/Constant.t:s/.*\0//s;
    lib/ExtUtils/t/eu_command.t: "\@\c@\cA\c@\c@\c@8__LIN\015\012";
    lib/ExtUtils/t/eu_command.t: is( join('', <FILE>), "stuff\012and thing\012", 'dos2unix' );
    lib/ExtUtils/t/eu_command.t: my $bin = "\c@\c@\c@\c@\c@\c@\cA\c@\c@\c@\015\012".
    lib/ExtUtils/t/eu_command.t: print FILE "stuff\015\012and thing\015\012";
    lib/File/Copy.pm: open($from_h, "< $from\0") or goto fail_open1;
    lib/File/Copy.pm: open($to_h,"> $to\0") or goto fail_open2;
    lib/File/Find.pm: $File::Find::skip_pattern    = qr/^Icon\015\z/;
    lib/File/Find.pm:The invisible system file "Icon\015" is ignored. While this file may
    lib/File/Path.t:cannot make child directory read-write-exec for [^:]+: .* at \1 line \2
    lib/File/Path.t:cannot make child directory read-write-exec for [^:]+: .* at \1 line \2
    lib/File/Path.t:cannot make child directory read-write-exec for [^:]+: .* at \1 line \2
    lib/File/Path.t:cannot make child directory read-write-exec for [^:]+: .* at \1 line \2
    lib/File/Path.t:cannot make child directory read-write-exec for [^:]+: .* at \1 line \2
    lib/File/Path.t:cannot make child directory read-write-exec for [^:]+: .* at \1 line \2
    lib/File/Path.t:cannot remove directory for [^:]+: .* at \1 line \2
    lib/File/Path.t:cannot remove directory for [^:]+: .* at \1 line \2
    lib/File/Path.t:cannot remove directory for [^:]+: .* at \1 line \2
    lib/File/Path.t:cannot remove directory for [^:]+: .* at \1 line \2},
    lib/File/Path.t:cannot restore permissions to \d+ for [^:]+: .* at \1 line \2
    lib/File/Path.t:cannot restore permissions to \d+ for [^:]+: .* at \1 line \2},
    lib/File/Path.t:cannot unlink file for [^:]+: .* at \1 line \2
    lib/File/Spec/Cygwin.pm: my $osFsType = "\0"x256;
    lib/File/Spec/Cygwin.pm: my $osVolName = "\0"x256;
    lib/File/Spec/Win32.pm: my $osFsType = "\0"x256;
    lib/File/Spec/Win32.pm: my $osVolName = "\0"x256;
    lib/Filter/Simple.pm: | ^=begin \s* (\S+) .*? \n=end \s* \1 .*? $EOP
    lib/Filter/Simple.pm:at the time the filter is applied (normally C<"\034">). The remaining
    lib/I18N/Collate.pm: $x .= (/^\000/) ? $_ : strxfrm("$_\000");
    lib/I18N/Collate.pm: for (split(/(\000+)/, $s)) {
    lib/MIME/QuotedPrint.pm:it as "\015\012" to produce data suitable for external consumption.
    lib/Math/BigInt.pm: return (\$sign, \$x, \'', \'', \0);
    lib/Memoize.pm: normalizer("a", "\034b")
    lib/Memoize.pm: normalizer("a\034", "b")
    lib/Memoize.pm: normalizer("a\034\034b")
    lib/Memoize.pm:C<"13\034ARRAY(0x436c1f)">.  That would be all right, except that a
    lib/Module/CoreList.pm: 'Encode::KR::2022_KR' => 1.06, #Encode\KR\2022_KR.pm
    lib/Net/Cmd.pm: $first_ch = "\012" if $line =~ s/^\012//;
    lib/Net/Cmd.pm: $last_ch = ${*$cmd}{'net_cmd_last_ch'} = "\012" unless defined $last_ch;
    lib/Net/Cmd.pm: $line =~ s/\015?\012(\.?)/\015\012$1$1/sg;
    lib/Net/Cmd.pm: $line =~ tr/\r\n/\015\012/ unless "\r" eq "\015";
    lib/Net/Cmd.pm: $str .= "\015\012";
    lib/Net/Cmd.pm: $tosend .= ".\015\012";
    lib/Net/Cmd.pm: $tosend = "\015\012";
    lib/Net/Cmd.pm: elsif ($ch ne "\012") {
    lib/Net/Cmd.pm: elsif ($last_ch eq "\012") {
    lib/Net/Cmd.pm: if ($last_ch eq "\015") {
    lib/Net/Cmd.pm: my @buf = split(/\015?\012/, $buf, -1);    ## break into lines
    lib/Net/Domain.pm: $domain =~ s/[\r\n\0]+//g;
    lib/Net/Domain.pm: $host =~ s/[\0\r\n]+//go;
    lib/Net/Domain.pm: my $tmp = "\0" x 256;    ## preload scalar
    lib/Net/Domain.pm: my $tmp = "\0" x 256;    ## preload scalar
    lib/Net/FTP/A.pm: $readbuf =~ s/\015\012/\n/sgo;
    lib/Net/FTP/A.pm: $tmp =~ s/([^\015])\012/$1\015\012/sg if $nr;
    lib/Net/FTP/A.pm: $tmp =~ s/^\012/\015\012/ unless ${*$data}{'net_ftp_outcr'};
    lib/Net/FTP/A.pm: ${*$data}{'net_ftp_outcr'} = substr($tmp, -1) eq "\015";
    lib/Net/FTP/A.pm: my $nr = (my $tmp = substr($buf, 0, $size)) =~ tr/\r\n/\015\012/;
    lib/Net/FTP/A.pm: my $readbuf = defined(${*$data}{'net_ftp_cr'}) ? "\015" : '';
    lib/Net/FTP/A.pm: substr($readbuf, -1) eq "\015"
    lib/Net/POP3.pm: $uidl = ($me->message =~ /\d+\s+([\041-\176]+)/)[0];
    lib/Net/POP3.pm: my ($msg, $uid) = $ln =~ /^\s*(\d+)\s+([\041-\176]+)/;
    lib/Net/Ping.pm: $ip = "\0\0\0\0" unless 4 == length $ip;
    lib/Net/Ping.pm: while ($wbits !~ /^\0*\z/) {
    lib/Net/Ping.pm: while ($wout !~ /^\0*\z/ &&
    lib/Net/Ping.pm: while ($wout !~ /^\0*\z/) {
    lib/Net/SMTP.pm: $v =~ s/([^\041-\176]|=|\+)/sprintf "+%02x", ord($1)/sge;
    lib/Net/t/datasend.t: "..a.b\015\012.\015\012",
    lib/Net/t/datasend.t: "..a\015\012..b\015\012.\015\012",
    lib/Net/t/datasend.t: "..a\015\012..b\015\012.\015\012",
    lib/Net/t/datasend.t: ".\015\012"
    lib/Net/t/datasend.t: "a\015\012..\015\012.\015\012",
    lib/Net/t/datasend.t: "a\015\012..b\015\012.\015\012",
    lib/Net/t/datasend.t: "a\015\012.\015\012",
    lib/Net/t/datasend.t: "a\015\012b\015\012.\015\012",
    lib/Net/t/datasend.t: "a\015\012b\015\012.\015\012",
    lib/Net/t/datasend.t: "a\015\012b\015\012.\015\012",
    lib/Net/t/datasend.t: "a\015\012b\015\012\015\012.\015\012",
    lib/Net/t/datasend.t: "a\015\015\012.\015\012",
    lib/Net/t/datasend.t: "a\015b\015\012.\015\012",
    lib/Net/t/datasend.t: "a\015b\015\012.\015\012",
    lib/Net/t/datasend.t: "a\015b\015\012\015\012.\015\012",
    lib/POSIX.pod: "Fri Jun  2 18:22:13 2000\n\0"
    lib/Pod/Checker.pm: nbsp   => "\240", # non breaking space
    lib/Pod/Man.pm: ( [\'\`\"] ) .* \1                             # already quoted
    lib/Pod/PlainText.pm: # For S<>, compress all internal whitespace and then map spaces to \01.
    lib/Pod/PlainText.pm: tr/ /\01/;
    lib/Pod/PlainText.pm:sub output { $_[1] =~ tr/\01/ /; print { $_[0]->output_handle } $_[1] }
    lib/Pod/Select.pm: s|\001|\\\\|g;       ## restore escaped backward slashes
    lib/Pod/Select.pm: s|\002|\\/|g;        ## restore escaped forward slashes
    lib/Pod/Select.pm: s|\\/|\002|g;   ## handle escaped forward slashes
    lib/Pod/Select.pm: s|\\\\|\001|g;  ## handle escaped backward slashes
    lib/Pod/Select.pm:*MAX_HEADING_LEVEL = \3;
    lib/Pod/Simple/t/corpus/2202jp.txt.packed:M3C([&RA"#0H-"@T*#0H]:&5A9#(@64]302!"55-/3B`H&R1"33\\54ES0CP;
    lib/Pod/Simple/t/corpus/2202jpx.txt.packed:M3C([&RA"#0H-"@T*#0H]:&5A9#(@64]302!"55-/3B`H&R1"33\\54ES0CP;
    lib/Pod/Simple/t/corpus/2202jpy.txt.packed:M02!"55-/3B`H&R1"33\\54ES0CP;*$(Q-S$V("T@,3<X,RD-"@T*&R1"2GU(
    lib/Pod/Simple/t/perlvar.pod: $/ = \32768; # or \"32768", or \$var_containing_32768
    lib/Pod/Simple/t/perlvar.pod:Default is "\034", the same as SUBSEP in B<awk>.  If your
    lib/Pod/Simple/t/perlvaro.txt: $/ = \32768; # or \"32768", or \$var_containing_32768
    lib/Pod/Simple/t/perlvaro.txt:Default is "\034", the same as SUBSEP in awk. If your keys contain binary data there might not be any safe value for $;. (Mnemonic: comma (the syntactic subscript separator) is a semi-semicolon. Yeah, I know, it's pretty lame, but $, is already taken for something more important.)
    lib/Pod/Text.pm: $text =~ tr/\240\255/ /d;
    lib/Pod/Text.pm: ( [\'\`\"] ) .* \1                             # already quoted
    lib/Pod/Text/Overstrike.pm: $text =~ s/(.)[\b]\1/$1/g;
    lib/Pod/t/basic.t: $output =~ tr/\033/\047/;
    lib/Socket.pm: sub CR   () {"\015"}
    lib/Socket.pm: sub CRLF () {"\015\012"}
    lib/Socket.pm: sub LF   () {"\012"}
    lib/Socket.pm:C<$CRLF>, which map to C<\015>, C<\012>, and C<\015\012>.  If you do
    lib/Switch.pm: | ^=begin \s* (\S+) .*? \n=end \s* \1 .*? $EOP
    lib/Sys/Hostname.pm: $host = "\0" x 65; ## preload scalar
    lib/Sys/Hostname.pm: $host = "\0" x 65; ## preload scalar
    lib/Sys/Hostname.pm: $host =~ tr/\0\r\n//d;
    lib/Sys/Syslog.pm: $buf = "<$sum>$timestamp $whoami: $message\0";
    lib/Term/Cap.pm: $self->{'_pc'} = "\0" unless defined $self->{'_pc'};
    lib/Term/Cap.pm: open( TERMCAP, "< $TERMCAP\0" ) || croak "open $TERMCAP: $!";
    lib/Term/Cap.pm: s/\337/^/g;
    lib/Term/Cap.pm: s/\377/^/g;
    lib/Term/Cap.pm: s/\\E/\033/g;
    lib/Term/Cap.pm: s/\\E/\047/g;
    lib/Term/Cap.pm: s/\\\^/\337/g;
    lib/Term/Cap.pm: s/\\\^/\377/g;
    lib/Term/Cap.pm: s/\^\?/\007/g;
    lib/Term/Cap.pm: s/\^\?/\177/g;
    lib/Term/Cap.pm:kb=\0177:
    lib/Term/Cap.t: is( $t->{_pc}, "\0", 'should set _pc field correctly' );
    lib/Term/Complete.pm: $complete = "\004";
    lib/Term/Complete.pm: $erase1 =   "\177";
    lib/Term/Complete.pm: $erase2 =   "\010";
    lib/Term/Complete.pm: $kill     = "\025";
    lib/Term/Complete.t: $$self = $text . "$main::complete\025";
    lib/Term/Complete.t: $text .= "$main::complete\025";
    lib/Term/UI.pm: if( $match =~ /^([-\w]+)=("|')(.+?)\2$/ ) {
    lib/Term/UI.pm: while ( $input =~ s/(?:^|\s+)--?([-\w]+=("|').+?\2)(?=\Z|\s+)//  or
    lib/Test.pm: $str =~ s/([\0-\037\177-\377])/sprintf('\\x%02X',ord($1))/eg;
    lib/Test.pm: $str =~ s/([\0-\037])(?!\d)/sprintf('\\%o',ord($1))/eg;
    lib/Test.pm: $str =~ s/([^\0-\176])/sprintf('\\x{%X}',ord($1))/eg;
    lib/Test.pm: (undef, $regex) = ($expected =~ m,^ m([^\w\s]) (.+) \1 $,sx)) {
    lib/Test/Builder.pm: (undef, $re, $opts) = $regex =~ m,^ m([^\w\s]) (.+) \1 (\w*) $,sx
    lib/Test/More.pm: eq_set([\1, \2], [\2, \1]);
    lib/Test/Simple/t/More.t:isa_ok(\42, 'SCALAR');
    lib/Test/Simple/t/eq_set.t: ok( eq_set( [\1, \2, \3], [\2, \3, \1] ) );
    lib/Test/Simple/t/eq_set.t:my $ref = \2;
    lib/Test/Simple/t/is_deeply_fail.t:my $ref = \23;
    lib/Test/Simple/t/is_deeply_fail.t:ok !is_deeply([], \23,    'mixed scalar and array refs');
    lib/Test/Simple/t/is_deeply_fail.t:ok !is_deeply(\42, \23,   'scalar refs');
    lib/Text/Balanced.pm: $ldel =~ tr/[](){}<>\0-\377/[[(({{<</ds;
    lib/Text/Balanced.pm: for ($ldel_inner, $ldel_outer) { tr/[]()<>{}\0-\377/[[((<<{{/ds }
    lib/Text/Balanced.pm: for ($rdel_inner, $rdel_outer) { tr/[]()<>{}\0-\377/]]))>>}}/ds }
    lib/Text/ParseWords.t: # Test for \001 in quoted string
    lib/Text/ParseWords.t: $result = join('|', parse_line(':', 0, ':"' . "\001" . '":'));
    lib/Text/ParseWords.t: is($result, "|\1|");
    lib/Text/Soundex.pm: $code =~ s/(.)9\1/$1/gs;
    lib/Tie/RefHash/threaded.t: is( join("\0",sort keys %hash), join("\0",sort $r1, $r2, $v1), "keys are ok" );
    lib/Tie/SubstrHash.pm: $$self[0] = "\0" x ($$self[4] * $$self[3]->[1]);
    lib/Tie/SubstrHash.pm: $record = "\2". $key . $val;
    lib/Tie/SubstrHash.pm: $record = "\2". $key . $val;
    lib/Tie/SubstrHash.pm: local $self = bless ["\0", $klen, $vlen, $tsize, $rlen, 0, -1];
    lib/Tie/SubstrHash.pm: next unless substr($$self[0], $iterix * $rlen, 1) eq "\2";
    lib/Tie/SubstrHash.pm: substr($$self[0], $offset, 1) = "\1";
    lib/Unicode/Collate.pm: # now $str is "<b>Camel</b> donkey zebra <b>came\x{301}l</b> <b>CAMEL</b> horse <b>cAm\0E\0L</b>...";
    lib/Unicode/Collate.pm: my $str = "Camel donkey zebra came\x{301}l CAMEL horse cAm\0E\0L...";
    lib/Unicode/Collate.pm: undefChar => qr/[^\0-\x{fffd}]/,
    lib/Unicode/Collate.pm:use constant LEVEL_SEP => "\0\0";
    lib/Unicode/Collate/Changes: ignorable) will be distinguished from NULL ("\0");
    lib/Unicode/Collate/t/ignor.t:ok($trad->eq("ocho", "oc\0\cA\0\cBho")); # UCA v9
    lib/Unicode/Collate/t/ignor.t:ok($trad->gt("ocho", "oc\0\cA\0\cBho"));
    lib/Unicode/Collate/t/ignor.t:ok($trad->gt("ocho", "oc\0\cA\0\cBho"));  # UCA v14
    lib/Unicode/Collate/t/illegal.t:$ret = "Pe\x{300}\0\0\x{301}";
    lib/Unicode/Collate/t/illegal.t:$str = "Pe\x{300}\0\0\x{301}rl";
    lib/Unicode/Collate/t/illegal.t:ok($illeg->gt("A\0", "A\x{FFFF}"));
    lib/Unicode/Collate/t/illegal.t:ok($illeg->lt("A",  "A\0"));
    lib/Unicode/Collate/t/illegal.t:ok($illeg->lt("AA", "A\0"));
    lib/Unicode/Collate/t/illegal.t:ok($illeg->ne("\0", "\x{10FFFF}"));
    lib/Unicode/Collate/t/illegal.t:ok($illeg->ne("\0", "\x{110000}"));
    lib/Unicode/Collate/t/illegal.t:ok($illeg->ne("\0", "\x{D800}"));
    lib/Unicode/Collate/t/illegal.t:ok($illeg->ne("\0", "\x{DFFF}"));
    lib/Unicode/Collate/t/illegal.t:ok($illeg->ne("\0", "\x{FDD0}"));
    lib/Unicode/Collate/t/illegal.t:ok($illeg->ne("\0", "\x{FDEF}"));
    lib/Unicode/Collate/t/illegal.t:ok($illeg->ne("\0", "\x{FFFE}"));
    lib/Unicode/Collate/t/illegal.t:ok($illeg->ne("\0", "\x{FFFF}"));
    lib/Unicode/Collate/t/illegalp.t:ok("\000!" lt "\x{FFFF}!");
    lib/Unicode/Collate/t/index.t: . "<b>CAMEL</b> horse <b>cAm\0E\0L</b>...");
    lib/Unicode/Collate/t/index.t:$ret = "e\0\cA\x{300}\0\cA";
    lib/Unicode/Collate/t/index.t:$ret = "e\0\x{300}\cA\x{301}\cB\x{302}\0";
    lib/Unicode/Collate/t/index.t:$ret = $Collator->gsubst($str, "\cA\cA\0", "AB");
    lib/Unicode/Collate/t/index.t:$str = "Camel donkey zebra came\x{301}l CAMEL horse cAm\0E\0L...";
    lib/Unicode/Collate/t/index.t:$str = "\0\cA\0\cAe\0\cA\x{300}\0\cAe";
    lib/Unicode/Collate/t/index.t:$str = "\0\cA\0\cAe\0\x{300}\cA\x{301}\cB\x{302}\0 \0\cA";
    lib/Unicode/Collate/t/override.t:ok($ignoreCJK->lt("\x{4E00}", "\0"));
    lib/Unicode/Collate/t/override.t:ok($ignoreHangul->lt("\x{AC00}", "\0"));
    lib/Unicode/Collate/t/test.t:ok($Collator->eq("\x{200B}", "\0"));
    lib/Unicode/Collate/t/test.t:ok($O_str   ->gt("\x{200B}", "\0"));
    lib/Win32API/File.pm: $buf =~ s/\012/\015\012/sg unless $self->_binmode();
    lib/Win32API/File.pm: @$ref= split( /\0/, $s );
    lib/Win32API/File.pm: return  split( /\0/, $s );
    lib/Win32API/File.pm:For each currently defined drive letter, a C<'\0'>-terminated string
    lib/Win32API/File.pm:concatenated into the string, most recent first, with an extra C<'\0'>
    lib/Win32API/File.pm:definitions.  The definitions are each C<'\0'>-terminate and are
    lib/Win32API/File.pm:extra terminating C<'\0'> is added.  This larger string is returned
    lib/Win32API/File.pm:might set C<$osBuffer> to the 9-character string, C<"A:\\\0C:\\\0\0">.
    lib/assert.pl: if (/^StB\000/ && length($_) == length($_main{'_main'})) {
    lib/assert.pl: s/([\0-\37\177])/sprintf("^%c",ord($1)^64)/eg;
    lib/assert.pl: s/([\200-\377])/sprintf("M-%c",ord($1)&0177)/eg;
    lib/assert.pl: s/([^\0]*)/'$1'/ unless /^-?[\d.]+$/;
    lib/bigfloat.pl: s/\373/N/;
    lib/bytes.t: is(bytes::substr($b, 0, 1), "\0", "bytes::substr truncated under use bytes");
    lib/charnames.t: $encoded_alpha = "\264\130";
    lib/charnames.t: $encoded_alpha = "\316\261";
    lib/charnames.t: $encoded_be = "\270\102\130";
    lib/charnames.t: $encoded_be = "\320\261";
    lib/charnames.t: $encoded_bet = "\270\125\130";
    lib/charnames.t: $encoded_bet = "\327\221";
    lib/charnames.t: $encoded_deseng = "\336\102\103\124";
    lib/charnames.t: $encoded_deseng = "\360\220\221\215";
    lib/charnames.t: my $non_ascii = $names =~ tr/\0-\177//c;
    lib/charnames.t: print "not " unless "\N{VERTICAL TABULATION}" eq "\013";
    lib/charnames.t:# If octal representation of unicode char is \0xyzt, then the utf8 is \3xy\2zt
    lib/complete.pl: $complete = "\004";
    lib/complete.pl: $erase1 =   "\177";
    lib/complete.pl: $erase2 =   "\010";
    lib/complete.pl: $kill     = "\025";
    lib/complete.pl: if ($_[1] =~ /^StB\0/) {
    lib/dumpvar.pl: if (/[\000-\011\013-\037\177]/) {
    lib/dumpvar.pl: if (/[\000-\011]/ or /[\013-\024\31-\037\177]/) {
    lib/dumpvar.pl: s/([\000-\037\177])/'\\c'._escaped_ord($1)/eg;
    lib/dumpvar.pl: s/([\000-\037\177])/'\\c'.chr(193)/eg; # Unfinished.
    lib/dumpvar.pl: s/([\000-\037\177])/'^'.pack('c',ord($1)^64)/eg;
    lib/dumpvar.pl: s/([\001-\037\177])/'^'.pack('c',ord($1)^64)/eg;
    lib/dumpvar.pl: s/([\200-\377])/'\\'.sprintf('%3o',ord($1))/eg if $quoteHighBit;
    lib/dumpvar.pl: s/([\200-\377])/'\\0x'.sprintf('%2X',ord($1))/eg 
    lib/dumpvar.pl: s/\033/\\e/g;
    lib/open.pm: ${^OPEN} = join("\0", $in, $out);
    lib/open.pm: my ($in,$out) = split(/\0/,(${^OPEN} || "\0"), -1);
    lib/open.t: my $temp = "\351" . shift() . "\243";
    lib/open.t: my $temp = "\351" . shift();
    lib/open.t: my $temp = shift() . "\243";
    lib/open.t:is( ${^OPEN}, ":raw :crlf\0:raw :crlf",
    lib/overload.t: 's' => \123,
    lib/overload.t: if ("\t" eq "\011") { # ASCII
    lib/perl5db.pl: $dbline{$i} .= "\0" . action($j);
    lib/perl5db.pl: $dbline{$i} =~ s/($|\0)/;9$1/;  # add one-time-only b.p.
    lib/perl5db.pl: $dbline{$i} =~ s/\0[^\0]*//;
    lib/perl5db.pl: $dbline{$i} =~ s/\0[^\0]*//;
    lib/perl5db.pl: $dbline{$i} =~ s/\0[^\0]*//;
    lib/perl5db.pl: $dbline{$i} =~ s/\0[^\0]*//;    # \^a
    lib/perl5db.pl: $dbline{$i} =~ s/^[^\0]*/$cond/;
    lib/perl5db.pl: $dbline{$i} =~ s/^[^\0]*//;
    lib/perl5db.pl: $dbline{$i} =~ s/^[^\0]+//;
    lib/perl5db.pl: $dbline{$i} =~ s/^[^\0]+//;
    lib/perl5db.pl: $dbline{$lineno} .= "\0" . action($expr);
    lib/perl5db.pl: $dbline{$lineno} =~ s/\0[^\0]*//;
    lib/perl5db.pl: $dbline{$line} =~ s/;9($|\0)/$1/;
    lib/perl5db.pl: $position = "\032\032$filename:$line:0\n";
    lib/perl5db.pl: $val =~ s/([\0-\37\177\200-\377])/"\\0x" . unpack('H2',$1)/eg;
    lib/perl5db.pl: && ( ( $stop, $action ) = split( /\0/, $dbline{$line} ) ) )
    lib/perl5db.pl: ( $stop, $action ) = split( /\0/, $dbline{$i} )
    lib/perl5db.pl: ( $stop, $action ) = split( /\0/, $dbline{$i} );
    lib/perl5db.pl: ( \040{4} | \t )*     # some subcommands are indented
    lib/perl5db.pl: if ( $dbline{$i} =~ s/^\0?$// ) {
    lib/perl5db.pl: if ( $dbline{$i} =~ s/^\0?$// ) {
    lib/perl5db.pl: if (s/ (["']) ( (?: \\. | (?! \1 ) [^\\] )* ) \1 //x) {
    lib/perl5db.pl: my ( $stop, $action ) = split( /\0/, $$db{$line} );
    lib/perl5db.pl: print $OUT "\032\032$filename:$i:0\n";
    lib/perl5db.pl: print $OUT "\032\032$filename:$start:0\n";
    lib/perl5db.pl: print $OUT "\032\032$filename:$start:0\n";
    lib/perl5db.pl: s/([\0-\37\177])/sprintf("^%c",ord($1)^64)/eg;
    lib/perl5db.pl: s/([\200-\377])/sprintf("M-%c",ord($1)&0177)/eg;
    lib/perl5db.pl: } ## end else [ if (s/ (["']) ( (?: \\. | (?! \1 ) [^\\] )* ) \1 //x)
    lib/perl5db.pl:Keys are line numbers, values are C<condition\0action>. If used in numeric
    lib/perl5db.pl:considered to be a breakpoint; C<perl5db.pl> uses C<$break_condition\0$action>.
    lib/perl5db.pl:definitions (C<condition\0action>).
    lib/perl5db.pl:part of the 'condition\0action' that says there's a breakpoint here. If,
    lib/re.pm: $colors =~ s/\0//g;
    lib/sigtrap.pm: s/([\0-\37\177])/sprintf("^%c",ord($1)^64)/eg;
    lib/sigtrap.pm: s/([\200-\377])/sprintf("M-%c",ord($1)&0177)/eg;
    lib/sigtrap.pm: s/([^\0]*)/'$1'/
    lib/termcap.pl: $TC{'pc'} = "\0" if $TC{'pc'} eq '';
    lib/termcap.pl: s/\377/^/g;
    lib/termcap.pl: s/\\E/\033/g;
    lib/termcap.pl: s/\\\^/\377/g;
    lib/termcap.pl: s/\^\?/\177/g;
    lib/unicore/mktables: ## \p{_CaseIgnorable} is [\p{Mn}\0x00AD\x2010]
    lib/version.pod: $vs1 = 1.2.3; # encoded as \1\2\3
    lib/version.pod: $vs2 = v1.2;  # encoded as \1\2 
    lib/warnings.pm:$NONE     = "\0\0\0\0\0\0\0\0\0\0\0\0";
    ext/B/B.xs: /* Boyer-Moore table is just after string and its safety-margin \0 */
    ext/B/B.xs: char escbuff[5]; /* to fit backslash, 3 octals + trailing \0 */
    ext/B/B.xs: char escbuff[5]; /* to fit backslash, 3 octals + trailing \0 */
    ext/B/B.xs: char escbuff[5]; /* to fit backslash, 3 octals + trailing \0 */
    ext/B/B.xs: char hexhash[19]; /* must fit "0xffffffffffffffff" plus trailing \0 */
    ext/B/B.xs:# (The "\0", the flags byte, and 256 for the table.  Not that anything
    ext/B/B/Deparse.pm: elsif (($to & WARN_MASK) eq ("\0"x length($to) & WARN_MASK)) {
    ext/B/B/Xref.pm: my ($type, $name) = $namesv->PV =~ /^(.)([^\0]*)(\0.*)?$/;
    ext/B/t/b.t:ok( B::svref_2object(\$.)->MAGIC->TYPE eq "\0", '$. has \0 magic' );
    ext/B/t/deparse.t:$a =~ s{\\274\\242}{\\s} if (ord("\\") == 188); # $^O eq 'posix-bc'
    ext/B/t/deparse.t:$a =~ s{\\340\\242}{\\s} if (ord("\\") == 224); # EBCDIC, cp 1047 or 037
    ext/B/t/deparse.t:my $foo = "Ab\x{100}\200\x{200}\377Cd\000Ef\x{1000}\cA\x{2000}\cZ";
    ext/B/t/optree_constants.t:$::{napier} = \2.71828;      # counter-example (doesn't get optimized).
    ext/B/t/terse.t:like( $items, qr/RV $hex \\42/, 'RV' );
    ext/B/t/terse.t:my $items = qx{$^X $path "-MO=Terse" -le "print \\42" $redir};
    ext/Compress/Raw/Zlib/Zlib.xs: *SvEND(buf) = '\0';
    ext/Compress/Raw/Zlib/Zlib.xs: *SvEND(buf) = '\0';
    ext/Compress/Raw/Zlib/Zlib.xs: *SvEND(buf) = '\0';
    ext/Compress/Raw/Zlib/Zlib.xs: *SvEND(output) = '\0';
    ext/Cwd/Cwd.xs: (dp->d_name[0] == '.' && (dp->d_name[1] == '\0' || \
    ext/Cwd/Cwd.xs: (dp->d_name[1] == '.' && dp->d_name[2] == '\0')))
    ext/Cwd/Cwd.xs: *SvEND(sv) = '\0';
    ext/Cwd/Cwd.xs: if (resolved[0] == '/' && resolved[1] == '\0')
    ext/Cwd/Cwd.xs: q[1] = '\0';
    ext/Cwd/Cwd.xs: resolved[MAXPATHLEN - 1] = '\0';
    ext/Cwd/Cwd.xs: resolved[n] = '\0';
    ext/DB_File/DB_File.pm: $db->filter_fetch_key  ( sub { s/\0$//    } ) ;
    ext/DB_File/DB_File.pm: $db->filter_fetch_value( sub { s/\0$//    } ) ;
    ext/DB_File/DB_File.pm: $db->filter_store_key  ( sub { $_ .= "\0" } ) ;
    ext/DB_File/DB_File.pm: $db->filter_store_value( sub { $_ .= "\0" } ) ;
    ext/DB_File/DB_File.pm: $hash{"$key\0"} = "$value\0" ;
    ext/DB_File/t/db-btree.t:$h{'a',2,3,4,5} = join("\034",'A',2,3,4,5);
    ext/DB_File/t/db-btree.t:$h{'jkl','mno'} = "JKL\034MNO";
    ext/DB_File/t/db-hash.t:$h{'a',2,3,4,5} = join("\034",'A',2,3,4,5);
    ext/DB_File/t/db-hash.t:$h{'jkl','mno'} = "JKL\034MNO";
    ext/Data/Dumper/Dumper.pm: if ($s->{useqq} or $val =~ tr/\0-\377//c) {
    ext/Data/Dumper/Dumper.pm: s/([\0-\037\177])/'\\'.sprintf('%03o',ord($1))/eg;
    ext/Data/Dumper/Dumper.pm: s/([\0-\037])(?!\d)/'\\'.sprintf('%o',ord($1))/eg;
    ext/Data/Dumper/Dumper.pm: s/([\200-\240])/'\\'.sprintf('%o',ord($1))/eg;
    ext/Data/Dumper/Dumper.pm: s/([\200-\377])/'\\'.sprintf('%03o',ord($1))/eg;
    ext/Data/Dumper/Dumper.pm: s/([^\040-\176])/sprintf "\\x{%04x}", ord($1)/ge;
    ext/Data/Dumper/Dumper.pm:#     $str =~ s/([^\040-\176])/sprintf "\\x{%04x}", ord($1)/ge;
    ext/Data/Dumper/Dumper.xs: *r = '\0';
    ext/Data/Dumper/Dumper.xs: /* We have something needing hex. 3 is ""\0 */
    ext/Data/Dumper/Dumper.xs: extra[elen] = '\0';
    ext/Data/Dumper/Dumper.xs: iname[ilen++] = ']'; iname[ilen] = '\0';
    ext/Data/Dumper/Dumper.xs: iname[inamelen++] = '['; iname[inamelen] = '\0';
    ext/Data/Dumper/Dumper.xs: iname[inamelen] = '\0';
    ext/Data/Dumper/Dumper.xs: nkey[++klen] = '\0';
    ext/Data/Dumper/Dumper.xs: npack[plen] = '\0';
    ext/Data/Dumper/Dumper.xs: r[i] = '\0';
    ext/Data/Dumper/Dumper.xs: r[i] = '\0';
    ext/Data/Dumper/Dumper.xs: start[n] = '\0';
    ext/Data/Dumper/Dumper.xs: sv_grow(retval, SvCUR(retval)+3+2*i); /* 3: ""\0 */
    ext/Data/Dumper/t/dumper.t: "reftest" => \\1,
    ext/Data/Dumper/t/dumper.t:#    b => \5,
    ext/Data/Dumper/t/dumper.t:#    b => \5,
    ext/Data/Dumper/t/dumper.t:#  "abc\0'\efg" => "mno\0",
    ext/Data/Dumper/t/dumper.t:#  "reftest" => \\1
    ext/Data/Dumper/t/dumper.t:#  'abc\0\\'\efg' => 'mno\0',
    ext/Data/Dumper/t/dumper.t:#  'reftest' => \\\\1
    ext/Data/Dumper/t/dumper.t:## XS code was adding an extra \0
    ext/Data/Dumper/t/dumper.t:#*::foo = \5;
    ext/Data/Dumper/t/dumper.t:#*::foo = \5;
    ext/Data/Dumper/t/dumper.t:#*::foo = \5;
    ext/Data/Dumper/t/dumper.t:#*::foo = \5;
    ext/Data/Dumper/t/dumper.t:#*::ping = \5;
    ext/Data/Dumper/t/dumper.t:$foo = { "abc\000\'\efg" => "mno\000",
    ext/Devel/DProf/Changes:#  -now mallocing an extra byte for the \0 :)
    ext/Devel/PPPort/PPPort.pm: dst[copy] = '\0';
    ext/Devel/PPPort/PPPort.pm: dst[used + copy] = '\0';
    ext/Devel/PPPort/PPPort.pm:#  define PERL_MAGIC_sv                  '\0'
    ext/Devel/PPPort/RealPPPort.xs: if (memEQ(p, "\0\0\0\0\0\0", 6))
    ext/Devel/PPPort/RealPPPort.xs: if (memEQ(p, "\0\0\0\0\0\0", 6))
    ext/Devel/PPPort/RealPPPort.xs: if (memNE(p, "\0\0\0\0\0\0", 6))
    ext/Devel/PPPort/parts/inc/magic:__UNDEFINED__  PERL_MAGIC_sv              '\0'
    ext/Devel/PPPort/parts/inc/memory: if (memEQ(p, "\0\0\0\0\0\0", 6))
    ext/Devel/PPPort/parts/inc/memory: if (memEQ(p, "\0\0\0\0\0\0", 6))
    ext/Devel/PPPort/parts/inc/memory: if (memNE(p, "\0\0\0\0\0\0", 6))
    ext/Devel/PPPort/parts/inc/strlfuncs: dst[copy] = '\0';
    ext/Devel/PPPort/parts/inc/strlfuncs: dst[used + copy] = '\0';
    ext/Devel/Peek/Peek.pm: PV = 0xb2048 "hello"\0
    ext/Devel/Peek/Peek.pm:to see what is in the scalar.  The \0 at the end indicate that this
    ext/Devel/Peek/Peek.xs: *SvEND(sv) = '\0';
    ext/Devel/Peek/t/Peek.t: Elt "\\\214\\\101" \[UTF8 "\\\x\{100\}"\] HASH = $ADDR
    ext/Devel/Peek/t/Peek.t: Elt "\\\304\\\200" \[UTF8 "\\\x\{100\}"\] HASH = $ADDR
    ext/Devel/Peek/t/Peek.t: FLAGS = \\(PADTMP,\1OK,p\1OK\\)
    ext/Devel/Peek/t/Peek.t: PV = $ADDR ""\\\0
    ext/Devel/Peek/t/Peek.t: PV = $ADDR "0"\\\0
    ext/Devel/Peek/t/Peek.t: PV = $ADDR "789"\\\0
    ext/Devel/Peek/t/Peek.t: PV = $ADDR "Perl rules"\\\0
    ext/Devel/Peek/t/Peek.t: PV = $ADDR "\\\214\\\101\\\0\\\235\\\101"\\\0 \[UTF8 "\\\x\{100\}\\\x\{0\}\\\x\{200\}"\]
    ext/Devel/Peek/t/Peek.t: PV = $ADDR "\\\235\\\101"\\\0 \[UTF8 "\\\x\{200\}"\]
    ext/Devel/Peek/t/Peek.t: PV = $ADDR "\\\304\\\200\\\0\\\310\\\200"\\\0 \[UTF8 "\\\x\{100\}\\\x\{0\}\\\x\{200\}"\]
    ext/Devel/Peek/t/Peek.t: PV = $ADDR "\\\310\\\200"\\\0 \[UTF8 "\\\x\{200\}"\]
    ext/Devel/Peek/t/Peek.t: PV = $ADDR "bar"\\\0
    ext/Devel/Peek/t/Peek.t: PV = $ADDR "foo"\\\0
    ext/Devel/Peek/t/Peek.t: PV = $ADDR "foo"\\\0
    ext/Devel/Peek/t/Peek.t: \1V = 456');
    ext/Devel/Peek/t/Peek.t:# ([NI]) captures the type, referred to by \1 in this regexp and $type for
    ext/Devel/Peek/t/Peek.t:)?      PV = $ADDR "(?i:PATH)"(?:\\\0)?
    ext/Digest/MD5/MD5.xs: *d = '\0';
    ext/Digest/MD5/MD5.xs: *d = '\0';
    ext/Digest/MD5/Makefile.PL: U8 buf[] = "\0\0\0\1\0\0\0\0";
    ext/Digest/MD5/t/align.t:my $str = "\100" x 20;
    ext/Digest/MD5/t/files.t:} elsif ("\n" eq "\015") { # MacOS
    ext/Digest/SHA/SHA.pm: $buf1 =~ s/\015/\012/g;                 # early MacOS
    ext/Digest/SHA/SHA.pm: $buf1 =~ s/\015?\015\012/\012/g;        # DOS/Windows
    ext/Digest/SHA/SHA.pm: while (substr($buf1, -1) eq "\015") {
    ext/Digest/SHA/t/methods.t:print $fh "abc\012" x 2048;          # using UNIX newline
    ext/Digest/SHA/t/methods.t:print $fh "abc\015" x 2048;          # using early-Mac newline
    ext/Digest/SHA/t/methods.t:print $fh "abc\015\012" x 2048;              # using DOS/Windows newline
    ext/DynaLoader/DynaLoader_pm.PL: s/<<\$\^O-(eq|ne)-(\w+)>>(.*?)<<\/\$\^O-\1-\2>>/
    ext/DynaLoader/dl_vms.xs: dl_last_error[errlen+msg->dsc$w_length+1] = '\0';
    ext/DynaLoader/dl_vms.xs: dl_last_error[errlen] = '\n';  dl_last_error[errlen+1] = '\0';
    ext/DynaLoader/dl_vms.xs: dl_last_error[msg->dsc$w_length] = '\0';
    ext/Encode/Changes: '\0' => '@' IFF '\0\0' => '\0' had gliches.
    ext/Encode/Encode.xs: *SvEND(dst) = '\0';
    ext/Encode/Encode.xs: *SvEND(dst) = '\0';
    ext/Encode/Encode.xs: *SvEND(dst) = '\0';
    ext/Encode/Unicode/Unicode.pm: % perl -MEncode -e '$_ = "\xfe\xff\xd8\xd9\xda\xdb\0\n"' \
    ext/Encode/Unicode/Unicode.pm: UTF-8       1-4   -   -     bogus   >= 4 octets   \xf0\x9a\af\8d
    ext/Encode/Unicode/Unicode.xs: *SvEND(str) = '\0';
    ext/Encode/Unicode/Unicode.xs: *SvEND(utf8) = '\0';
    ext/Encode/bin/unidump: "\0" => '\0',
    ext/Encode/bin/unidump: qq(\x00) => q(\0),  # NULL
    ext/Encode/lib/Encode/MIME/Header.pm: s/(\=\?[0-9A-Za-z\-_]+\?[Qq]\?)(.*?)\?\=\1(.*?)\?\=/$1$2$3\?\=/ )
    ext/Fcntl/t/syslfs.t:fail unless $zero eq "\0\0\0";
    ext/Filter/Util/Call/Call.xs: do { SvPVX(sv)[len] = '\0'; SvCUR_set(sv, len); } while (0)
    ext/GDBM_File/t/gdbm.t:$h{'a',2,3,4,5} = join("\034",'A',2,3,4,5);
    ext/GDBM_File/t/gdbm.t:$h{'jkl','mno'} = "JKL\034MNO";
    ext/Hash/Util/FieldHash/t/10_hash.t: $h{"\0"x$_}++;
    ext/Hash/Util/FieldHash/t/10_hash.t: $h{"\0"x$_}++;
    ext/Hash/Util/FieldHash/t/10_hash.t:# keys which don't contain \0 -- suitable for stashes
    ext/IO/t/io_dir.t:ok(+(join("\0", @a) eq join("\0", @b)));
    ext/IO/t/io_dir.t:ok(+(join("\0", @b) eq join("\0", @c)));
    ext/IO_Compress_Zlib/t/004gziphdr.t: [ [ [ "ab", \1 ]]     => "SubField Data is a reference"],
    ext/IO_Compress_Zlib/t/004gziphdr.t: [ { "ab", \1 }     => "SubField Data is a reference"],
    ext/IO_Compress_Zlib/t/004gziphdr.t: [ { \1 , "abc" }    => "SubField ID not two chars long"],
    ext/List/Util/t/readonly.t:$var = \2;
    ext/MIME/Base64/Base64.xs: *r = '\0';
    ext/MIME/Base64/Base64.xs: *r = '\0';
    ext/MIME/Base64/Base64.xs: *r = '\0';  /* every SV in perl should be NUL-terminated */
    ext/MIME/Base64/Base64.xs: buf[2] = '\0';
    ext/MIME/Base64/Base64.xs: c2 = len > 1 ? *str++ : '\0';
    ext/MIME/Base64/Changes: Don't rely on SvEND(sv) == '\0' as discussed in the perl5-porters
    ext/MIME/Base64/QuotedPrint.pm:it as "\015\012" to produce data suitable for external consumption.
    ext/MIME/Base64/t/base64.t: ["\000" => "AA=="],
    ext/MIME/Base64/t/base64.t: ["\000\000\000" => "AAAA"],
    ext/MIME/Base64/t/base64.t: ["\000\377" => "AP8="],
    ext/MIME/Base64/t/base64.t: ["\001" => "AQ=="],
    ext/MIME/Base64/t/base64.t: ["\002" => "Ag=="],
    ext/MIME/Base64/t/base64.t: ["\003" => "Aw=="],
    ext/MIME/Base64/t/base64.t: ["\004" => "BA=="],
    ext/MIME/Base64/t/base64.t: ["\005" => "BQ=="],
    ext/MIME/Base64/t/base64.t: ["\006" => "Bg=="],
    ext/MIME/Base64/t/base64.t: ["\007" => "Bw=="],
    ext/MIME/Base64/t/base64.t: ["\010" => "CA=="],
    ext/MIME/Base64/t/base64.t: ["\011" => "CQ=="],
    ext/MIME/Base64/t/base64.t: ["\012" => "Cg=="],
    ext/MIME/Base64/t/base64.t: ["\013" => "Cw=="],
    ext/MIME/Base64/t/base64.t: ["\014" => "DA=="],
    ext/MIME/Base64/t/base64.t: ["\015" => "DQ=="],
    ext/MIME/Base64/t/base64.t: ["\016" => "Dg=="],
    ext/MIME/Base64/t/base64.t: ["\017" => "Dw=="],
    ext/MIME/Base64/t/base64.t: ["\020" => "EA=="],
    ext/MIME/Base64/t/base64.t: ["\021" => "EQ=="],
    ext/MIME/Base64/t/base64.t: ["\022" => "Eg=="],
    ext/MIME/Base64/t/base64.t: ["\023" => "Ew=="],
    ext/MIME/Base64/t/base64.t: ["\024" => "FA=="],
    ext/MIME/Base64/t/base64.t: ["\025" => "FQ=="],
    ext/MIME/Base64/t/base64.t: ["\026" => "Fg=="],
    ext/MIME/Base64/t/base64.t: ["\027" => "Fw=="],
    ext/MIME/Base64/t/base64.t: ["\030" => "GA=="],
    ext/MIME/Base64/t/base64.t: ["\031" => "GQ=="],
    ext/MIME/Base64/t/base64.t: ["\032" => "Gg=="],
    ext/MIME/Base64/t/base64.t: ["\033" => "Gw=="],
    ext/MIME/Base64/t/base64.t: ["\034" => "HA=="],
    ext/MIME/Base64/t/base64.t: ["\035" => "HQ=="],
    ext/MIME/Base64/t/base64.t: ["\036" => "Hg=="],
    ext/MIME/Base64/t/base64.t: ["\037" => "Hw=="],
    ext/MIME/Base64/t/base64.t: ["\040" => "IA=="],
    ext/MIME/Base64/t/base64.t: ["\041" => "IQ=="],
    ext/MIME/Base64/t/base64.t: ["\042" => "Ig=="],
    ext/MIME/Base64/t/base64.t: ["\043" => "Iw=="],
    ext/MIME/Base64/t/base64.t: ["\044" => "JA=="],
    ext/MIME/Base64/t/base64.t: ["\045" => "JQ=="],
    ext/MIME/Base64/t/base64.t: ["\046" => "Jg=="],
    ext/MIME/Base64/t/base64.t: ["\047" => "Jw=="],
    ext/MIME/Base64/t/base64.t: ["\050" => "KA=="],
    ext/MIME/Base64/t/base64.t: ["\051" => "KQ=="],
    ext/MIME/Base64/t/base64.t: ["\052" => "Kg=="],
    ext/MIME/Base64/t/base64.t: ["\053" => "Kw=="],
    ext/MIME/Base64/t/base64.t: ["\054" => "LA=="],
    ext/MIME/Base64/t/base64.t: ["\055" => "LQ=="],
    ext/MIME/Base64/t/base64.t: ["\056" => "Lg=="],
    ext/MIME/Base64/t/base64.t: ["\057" => "Lw=="],
    ext/MIME/Base64/t/base64.t: ["\060" => "MA=="],
    ext/MIME/Base64/t/base64.t: ["\061" => "MQ=="],
    ext/MIME/Base64/t/base64.t: ["\062" => "Mg=="],
    ext/MIME/Base64/t/base64.t: ["\063" => "Mw=="],
    ext/MIME/Base64/t/base64.t: ["\064" => "NA=="],
    ext/MIME/Base64/t/base64.t: ["\065" => "NQ=="],
    ext/MIME/Base64/t/base64.t: ["\066" => "Ng=="],
    ext/MIME/Base64/t/base64.t: ["\067" => "Nw=="],
    ext/MIME/Base64/t/base64.t: ["\070" => "OA=="],
    ext/MIME/Base64/t/base64.t: ["\071" => "OQ=="],
    ext/MIME/Base64/t/base64.t: ["\072" => "Og=="],
    ext/MIME/Base64/t/base64.t: ["\073" => "Ow=="],
    ext/MIME/Base64/t/base64.t: ["\074" => "PA=="],
    ext/MIME/Base64/t/base64.t: ["\075" => "PQ=="],
    ext/MIME/Base64/t/base64.t: ["\076" => "Pg=="],
    ext/MIME/Base64/t/base64.t: ["\077" => "Pw=="],
    ext/MIME/Base64/t/base64.t: ["\100" => "QA=="],
    ext/MIME/Base64/t/base64.t: ["\101" => "QQ=="],
    ext/MIME/Base64/t/base64.t: ["\102" => "Qg=="],
    ext/MIME/Base64/t/base64.t: ["\103" => "Qw=="],
    ext/MIME/Base64/t/base64.t: ["\104" => "RA=="],
    ext/MIME/Base64/t/base64.t: ["\105" => "RQ=="],
    ext/MIME/Base64/t/base64.t: ["\106" => "Rg=="],
    ext/MIME/Base64/t/base64.t: ["\107" => "Rw=="],
    ext/MIME/Base64/t/base64.t: ["\110" => "SA=="],
    ext/MIME/Base64/t/base64.t: ["\111" => "SQ=="],
    ext/MIME/Base64/t/base64.t: ["\112" => "Sg=="],
    ext/MIME/Base64/t/base64.t: ["\113" => "Sw=="],
    ext/MIME/Base64/t/base64.t: ["\114" => "TA=="],
    ext/MIME/Base64/t/base64.t: ["\115" => "TQ=="],
    ext/MIME/Base64/t/base64.t: ["\116" => "Tg=="],
    ext/MIME/Base64/t/base64.t: ["\117" => "Tw=="],
    ext/MIME/Base64/t/base64.t: ["\120" => "UA=="],
    ext/MIME/Base64/t/base64.t: ["\121" => "UQ=="],
    ext/MIME/Base64/t/base64.t: ["\122" => "Ug=="],
    ext/MIME/Base64/t/base64.t: ["\123" => "Uw=="],
    ext/MIME/Base64/t/base64.t: ["\124" => "VA=="],
    ext/MIME/Base64/t/base64.t: ["\125" => "VQ=="],
    ext/MIME/Base64/t/base64.t: ["\126" => "Vg=="],
    ext/MIME/Base64/t/base64.t: ["\127" => "Vw=="],
    ext/MIME/Base64/t/base64.t: ["\130" => "WA=="],
    ext/MIME/Base64/t/base64.t: ["\131" => "WQ=="],
    ext/MIME/Base64/t/base64.t: ["\132" => "Wg=="],
    ext/MIME/Base64/t/base64.t: ["\133" => "Ww=="],
    ext/MIME/Base64/t/base64.t: ["\134" => "XA=="],
    ext/MIME/Base64/t/base64.t: ["\135" => "XQ=="],
    ext/MIME/Base64/t/base64.t: ["\136" => "Xg=="],
    ext/MIME/Base64/t/base64.t: ["\137" => "Xw=="],
    ext/MIME/Base64/t/base64.t: ["\140" => "YA=="],
    ext/MIME/Base64/t/base64.t: ["\141" => "YQ=="],
    ext/MIME/Base64/t/base64.t: ["\142" => "Yg=="],
    ext/MIME/Base64/t/base64.t: ["\143" => "Yw=="],
    ext/MIME/Base64/t/base64.t: ["\144" => "ZA=="],
    ext/MIME/Base64/t/base64.t: ["\145" => "ZQ=="],
    ext/MIME/Base64/t/base64.t: ["\146" => "Zg=="],
    ext/MIME/Base64/t/base64.t: ["\147" => "Zw=="],
    ext/MIME/Base64/t/base64.t: ["\150" => "aA=="],
    ext/MIME/Base64/t/base64.t: ["\151" => "aQ=="],
    ext/MIME/Base64/t/base64.t: ["\152" => "ag=="],
    ext/MIME/Base64/t/base64.t: ["\153" => "aw=="],
    ext/MIME/Base64/t/base64.t: ["\154" => "bA=="],
    ext/MIME/Base64/t/base64.t: ["\155" => "bQ=="],
    ext/MIME/Base64/t/base64.t: ["\156" => "bg=="],
    ext/MIME/Base64/t/base64.t: ["\157" => "bw=="],
    ext/MIME/Base64/t/base64.t: ["\160" => "cA=="],
    ext/MIME/Base64/t/base64.t: ["\161" => "cQ=="],
    ext/MIME/Base64/t/base64.t: ["\162" => "cg=="],
    ext/MIME/Base64/t/base64.t: ["\163" => "cw=="],
    ext/MIME/Base64/t/base64.t: ["\164" => "dA=="],
    ext/MIME/Base64/t/base64.t: ["\165" => "dQ=="],
    ext/MIME/Base64/t/base64.t: ["\166" => "dg=="],
    ext/MIME/Base64/t/base64.t: ["\167" => "dw=="],
    ext/MIME/Base64/t/base64.t: ["\170" => "eA=="],
    ext/MIME/Base64/t/base64.t: ["\171" => "eQ=="],
    ext/MIME/Base64/t/base64.t: ["\172" => "eg=="],
    ext/MIME/Base64/t/base64.t: ["\173" => "ew=="],
    ext/MIME/Base64/t/base64.t: ["\174" => "fA=="],
    ext/MIME/Base64/t/base64.t: ["\175" => "fQ=="],
    ext/MIME/Base64/t/base64.t: ["\176" => "fg=="],
    ext/MIME/Base64/t/base64.t: ["\177" => "fw=="],
    ext/MIME/Base64/t/base64.t: ["\200" => "gA=="],
    ext/MIME/Base64/t/base64.t: ["\201" => "gQ=="],
    ext/MIME/Base64/t/base64.t: ["\202" => "gg=="],
    ext/MIME/Base64/t/base64.t: ["\203" => "gw=="],
    ext/MIME/Base64/t/base64.t: ["\204" => "hA=="],
    ext/MIME/Base64/t/base64.t: ["\205" => "hQ=="],
    ext/MIME/Base64/t/base64.t: ["\206" => "hg=="],
    ext/MIME/Base64/t/base64.t: ["\207" => "hw=="],
    ext/MIME/Base64/t/base64.t: ["\210" => "iA=="],
    ext/MIME/Base64/t/base64.t: ["\211" => "iQ=="],
    ext/MIME/Base64/t/base64.t: ["\212" => "ig=="],
    ext/MIME/Base64/t/base64.t: ["\213" => "iw=="],
    ext/MIME/Base64/t/base64.t: ["\214" => "jA=="],
    ext/MIME/Base64/t/base64.t: ["\215" => "jQ=="],
    ext/MIME/Base64/t/base64.t: ["\216" => "jg=="],
    ext/MIME/Base64/t/base64.t: ["\217" => "jw=="],
    ext/MIME/Base64/t/base64.t: ["\220" => "kA=="],
    ext/MIME/Base64/t/base64.t: ["\221" => "kQ=="],
    ext/MIME/Base64/t/base64.t: ["\222" => "kg=="],
    ext/MIME/Base64/t/base64.t: ["\223" => "kw=="],
    ext/MIME/Base64/t/base64.t: ["\224" => "lA=="],
    ext/MIME/Base64/t/base64.t: ["\225" => "lQ=="],
    ext/MIME/Base64/t/base64.t: ["\226" => "lg=="],
    ext/MIME/Base64/t/base64.t: ["\227" => "lw=="],
    ext/MIME/Base64/t/base64.t: ["\230" => "mA=="],
    ext/MIME/Base64/t/base64.t: ["\231" => "mQ=="],
    ext/MIME/Base64/t/base64.t: ["\232" => "mg=="],
    ext/MIME/Base64/t/base64.t: ["\233" => "mw=="],
    ext/MIME/Base64/t/base64.t: ["\234" => "nA=="],
    ext/MIME/Base64/t/base64.t: ["\235" => "nQ=="],
    ext/MIME/Base64/t/base64.t: ["\236" => "ng=="],
    ext/MIME/Base64/t/base64.t: ["\237" => "nw=="],
    ext/MIME/Base64/t/base64.t: ["\240" => "oA=="],
    ext/MIME/Base64/t/base64.t: ["\241" => "oQ=="],
    ext/MIME/Base64/t/base64.t: ["\242" => "og=="],
    ext/MIME/Base64/t/base64.t: ["\243" => "ow=="],
    ext/MIME/Base64/t/base64.t: ["\244" => "pA=="],
    ext/MIME/Base64/t/base64.t: ["\245" => "pQ=="],
    ext/MIME/Base64/t/base64.t: ["\246" => "pg=="],
    ext/MIME/Base64/t/base64.t: ["\247" => "pw=="],
    ext/MIME/Base64/t/base64.t: ["\250" => "qA=="],
    ext/MIME/Base64/t/base64.t: ["\251" => "qQ=="],
    ext/MIME/Base64/t/base64.t: ["\252" => "qg=="],
    ext/MIME/Base64/t/base64.t: ["\253" => "qw=="],
    ext/MIME/Base64/t/base64.t: ["\254" => "rA=="],
    ext/MIME/Base64/t/base64.t: ["\255" => "rQ=="],
    ext/MIME/Base64/t/base64.t: ["\256" => "rg=="],
    ext/MIME/Base64/t/base64.t: ["\257" => "rw=="],
    ext/MIME/Base64/t/base64.t: ["\260" => "sA=="],
    ext/MIME/Base64/t/base64.t: ["\261" => "sQ=="],
    ext/MIME/Base64/t/base64.t: ["\262" => "sg=="],
    ext/MIME/Base64/t/base64.t: ["\263" => "sw=="],
    ext/MIME/Base64/t/base64.t: ["\264" => "tA=="],
    ext/MIME/Base64/t/base64.t: ["\265" => "tQ=="],
    ext/MIME/Base64/t/base64.t: ["\266" => "tg=="],
    ext/MIME/Base64/t/base64.t: ["\267" => "tw=="],
    ext/MIME/Base64/t/base64.t: ["\270" => "uA=="],
    ext/MIME/Base64/t/base64.t: ["\271" => "uQ=="],
    ext/MIME/Base64/t/base64.t: ["\272" => "ug=="],
    ext/MIME/Base64/t/base64.t: ["\273" => "uw=="],
    ext/MIME/Base64/t/base64.t: ["\274" => "vA=="],
    ext/MIME/Base64/t/base64.t: ["\275" => "vQ=="],
    ext/MIME/Base64/t/base64.t: ["\276" => "vg=="],
    ext/MIME/Base64/t/base64.t: ["\277" => "vw=="],
    ext/MIME/Base64/t/base64.t: ["\300" => "wA=="],
    ext/MIME/Base64/t/base64.t: ["\301" => "wQ=="],
    ext/MIME/Base64/t/base64.t: ["\302" => "wg=="],
    ext/MIME/Base64/t/base64.t: ["\303" => "ww=="],
    ext/MIME/Base64/t/base64.t: ["\304" => "xA=="],
    ext/MIME/Base64/t/base64.t: ["\305" => "xQ=="],
    ext/MIME/Base64/t/base64.t: ["\306" => "xg=="],
    ext/MIME/Base64/t/base64.t: ["\307" => "xw=="],
    ext/MIME/Base64/t/base64.t: ["\310" => "yA=="],
    ext/MIME/Base64/t/base64.t: ["\311" => "yQ=="],
    ext/MIME/Base64/t/base64.t: ["\312" => "yg=="],
    ext/MIME/Base64/t/base64.t: ["\313" => "yw=="],
    ext/MIME/Base64/t/base64.t: ["\314" => "zA=="],
    ext/MIME/Base64/t/base64.t: ["\315" => "zQ=="],
    ext/MIME/Base64/t/base64.t: ["\316" => "zg=="],
    ext/MIME/Base64/t/base64.t: ["\317" => "zw=="],
    ext/MIME/Base64/t/base64.t: ["\320" => "0A=="],
    ext/MIME/Base64/t/base64.t: ["\321" => "0Q=="],
    ext/MIME/Base64/t/base64.t: ["\322" => "0g=="],
    ext/MIME/Base64/t/base64.t: ["\323" => "0w=="],
    ext/MIME/Base64/t/base64.t: ["\324" => "1A=="],
    ext/MIME/Base64/t/base64.t: ["\325" => "1Q=="],
    ext/MIME/Base64/t/base64.t: ["\326" => "1g=="],
    ext/MIME/Base64/t/base64.t: ["\327" => "1w=="],
    ext/MIME/Base64/t/base64.t: ["\330" => "2A=="],
    ext/MIME/Base64/t/base64.t: ["\331" => "2Q=="],
    ext/MIME/Base64/t/base64.t: ["\332" => "2g=="],
    ext/MIME/Base64/t/base64.t: ["\333" => "2w=="],
    ext/MIME/Base64/t/base64.t: ["\334" => "3A=="],
    ext/MIME/Base64/t/base64.t: ["\335" => "3Q=="],
    ext/MIME/Base64/t/base64.t: ["\336" => "3g=="],
    ext/MIME/Base64/t/base64.t: ["\337" => "3w=="],
    ext/MIME/Base64/t/base64.t: ["\340" => "4A=="],
    ext/MIME/Base64/t/base64.t: ["\341" => "4Q=="],
    ext/MIME/Base64/t/base64.t: ["\342" => "4g=="],
    ext/MIME/Base64/t/base64.t: ["\343" => "4w=="],
    ext/MIME/Base64/t/base64.t: ["\344" => "5A=="],
    ext/MIME/Base64/t/base64.t: ["\345" => "5Q=="],
    ext/MIME/Base64/t/base64.t: ["\346" => "5g=="],
    ext/MIME/Base64/t/base64.t: ["\347" => "5w=="],
    ext/MIME/Base64/t/base64.t: ["\350" => "6A=="],
    ext/MIME/Base64/t/base64.t: ["\351" => "6Q=="],
    ext/MIME/Base64/t/base64.t: ["\352" => "6g=="],
    ext/MIME/Base64/t/base64.t: ["\353" => "6w=="],
    ext/MIME/Base64/t/base64.t: ["\354" => "7A=="],
    ext/MIME/Base64/t/base64.t: ["\355" => "7Q=="],
    ext/MIME/Base64/t/base64.t: ["\356" => "7g=="],
    ext/MIME/Base64/t/base64.t: ["\357" => "7w=="],
    ext/MIME/Base64/t/base64.t: ["\360" => "8A=="],
    ext/MIME/Base64/t/base64.t: ["\361" => "8Q=="],
    ext/MIME/Base64/t/base64.t: ["\362" => "8g=="],
    ext/MIME/Base64/t/base64.t: ["\363" => "8w=="],
    ext/MIME/Base64/t/base64.t: ["\364" => "9A=="],
    ext/MIME/Base64/t/base64.t: ["\365" => "9Q=="],
    ext/MIME/Base64/t/base64.t: ["\366" => "9g=="],
    ext/MIME/Base64/t/base64.t: ["\367" => "9w=="],
    ext/MIME/Base64/t/base64.t: ["\370" => "+A=="],
    ext/MIME/Base64/t/base64.t: ["\371" => "+Q=="],
    ext/MIME/Base64/t/base64.t: ["\372" => "+g=="],
    ext/MIME/Base64/t/base64.t: ["\373" => "+w=="],
    ext/MIME/Base64/t/base64.t: ["\374" => "/A=="],
    ext/MIME/Base64/t/base64.t: ["\375" => "/Q=="],
    ext/MIME/Base64/t/base64.t: ["\376" => "/g=="],
    ext/MIME/Base64/t/base64.t: ["\377" => "/w=="],
    ext/MIME/Base64/t/base64.t: ["\377\000" => "/wA="],
    ext/MIME/Base64/t/quoted-print.t: ["\0\xff0" => "=00=FF0=\n"],
    ext/MIME/Base64/t/quoted-print.t: ["\0\xff0" => "=00=FF0=\n"],
    ext/NDBM_File/t/ndbm.t:$h{'a',2,3,4,5} = join("\034",'A',2,3,4,5);
    ext/NDBM_File/t/ndbm.t:$h{'jkl','mno'} = "JKL\034MNO";
    ext/ODBM_File/t/odbm.t:$h{'a',2,3,4,5} = join("\034",'A',2,3,4,5);
    ext/ODBM_File/t/odbm.t:$h{'jkl','mno'} = "JKL\034MNO";
    ext/POSIX/POSIX.pod: "Fri Jun  2 18:22:13 2000\n\0"
    ext/POSIX/POSIX.xs: *SvEND(sv_buffer) = '\0';
    ext/POSIX/t/is.t: "\001" => [ qw(cntrl) ],
    ext/POSIX/t/is.t: "abcde\001" => [],
    ext/PerlIO/t/scalar.t: like($foo, qr/^\0{50}x$/);
    ext/PerlIO/t/scalar.t: like($foo, qr/^\0{50}x\0{24}z\0{24}y$/);
    ext/PerlIO/t/scalar.t: like($foo, qr/^\0{50}x\0{49}y$/);
    ext/PerlIO/t/scalar.t: my $ro = \43;
    ext/PerlIO/t/scalar.t:open $fh, '<', \42;
    ext/SDBM_File/sdbm/dbe.1:\\nnn, \\0, \\n, \\t, \\f and \\r are interpreted as usual.
    ext/SDBM_File/t/sdbm.t:$h{'a',2,3,4,5} = join("\034",'A',2,3,4,5);
    ext/SDBM_File/t/sdbm.t:$h{'jkl','mno'} = "JKL\034MNO";
    ext/Safe/t/safe3.t:$safe->reval( qq{\$_[1] = qq/\0/ x } . $masksize );
    ext/Safe/t/safe3.t:\$_[1] = "\0" x $masksize;
    ext/Socket/Socket.pm: sub CR   () {"\015"}
    ext/Socket/Socket.pm: sub CRLF () {"\015\012"}
    ext/Socket/Socket.pm: sub LF   () {"\012"}
    ext/Socket/Socket.pm:C<$CRLF>, which map to C<\015>, C<\012>, and C<\015\012>.  If you do
    ext/Socket/Socket.xs: * with a '\0', so allow this. */
    ext/Socket/Socket.xs: int ok = (*host != '\0') && inet_aton(host, &ip_address);
    ext/Socket/Socket.xs: while ((c = *cp) != '\0') {
    ext/Socket/t/Socket.t: $path =~ s/\0/\\0/g;
    ext/Storable/Storable.xs: *       PV = 0x80c83d0 "abc"\0
    ext/Storable/Storable.xs: *SvEND(frozen) = '\0';
    ext/Storable/Storable.xs: *SvEND(sv) = '\0';                              /* Ensure it's null terminated anyway */
    ext/Storable/Storable.xs: *SvEND(sv) = '\0';                      /* Ensure it's null terminated anyway */
    ext/Storable/Storable.xs: *SvEND(sv) = '\0';                      /* Ensure it's null terminated anyway */
    ext/Storable/Storable.xs: /* This includes the '\0' at the end.  I want to read the extra byte,
    ext/Storable/Storable.xs: WRITE(classname, len);                          /* Final \0 is omitted */
    ext/Storable/Storable.xs: WRITE(classname, len);          /* Final \0 is omitted */
    ext/Storable/Storable.xs: WRITE(pv, (SSize_t)len2);       /* Final \0 is omitted */
    ext/Storable/Storable.xs: char mtype = '\0';
    ext/Storable/Storable.xs: char mtype = '\0';                              /* for blessed ref to tied structures */
    ext/Storable/Storable.xs: classname[len] = '\0';          /* Mark string end */
    ext/Storable/Storable.xs: classname[len] = '\0';          /* Mark string end */
    ext/Storable/Storable.xs: kbuf[len] = '\0';                       /* Mark string end */
    ext/Storable/Storable.xs: kbuf[size] = '\0';                              /* Mark string end, just in case */
    ext/Storable/Storable.xs: kbuf[size] = '\0';                              /* Mark string end, just in case */
    ext/Storable/Storable.xs: kbuf[size] = '\0';                         /* Mark string end, just in case */
    ext/Storable/Storable.xs: to encounter the '\0' which perl adds at the end
    ext/Storable/Storable.xs: unsigned char eflags = '\0';    /* used when object type is SHT_EXTRA */
    ext/Storable/t/code.t: my $sclr = \1;
    ext/Storable/t/compat01.t: "perl-store\0\x041234\4\4\4\x94y\22\b\3\1\0\0\0vxz\22\b\b\x81Xk\3\0\0\0oneX",      # 0.4@7
    ext/Storable/t/compat01.t: "perl-store\x041234\4\4\4\x94y\22\b\3\1\0\0\0vxz\22\b\1\1\0\0\x001Xk\3\0\0\0oneX", # 0.1
    ext/Storable/t/compat06.t:#M\0H$I8&3\@````22A:CR`````YF%A@0"````!@B!"(`(?0H(8/-+\?3Q]?D)
    ext/Storable/t/downgrade.t:FA8&D%P?B@XB3EHMS`@````;B@XB3EM\7!-QD<E4`````!-QD<E4`
    ext/Storable/t/file_magic.t: "perl-store\0\x041234\4\4\4\x8Co\34\b\3\13\0\0\0v\x94v\34...",
    ext/Storable/t/file_magic.t: "perl-store\1\x8Co\34\b\3\0\0\0\13v\x94v\34\b\1\0\0\4\0\0\0...",
    ext/Storable/t/file_magic.t: "perl-store\x041234\4\4\4\xD4\xC2\32\b\3\13\0\0\0v\b\xC5\32\b...",
    ext/Storable/t/file_magic.t: "pst0\2\x041234\4\4\4\3\13\0\0\0\1\0\4\0\0\0\0\0\0\0\0\0\0\0...",
    ext/Storable/t/file_magic.t: "pst0\3\3\0\0\0\13\1\0\0\4\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0...",
    ext/Storable/t/file_magic.t: "pst0\4\0\x041234\4\4\4\3\13\0\0\0\1\0\4\0\0\0\0\0\0\0\0\0\0...",
    ext/Storable/t/file_magic.t: "pst0\4\3\x044321\4\4\4\x08\3\0\0\0\13\1\0\0\4\0\0\0\0\0\0\0\0...",
    ext/Storable/t/file_magic.t: "pst0\4\4\x041234\4\4\4\x08\3\13\0\0\0\1\0\4\0\0\0\0\0\0\0\0\0...",
    ext/Storable/t/file_magic.t: "pst0\4\4\x044321\4\4\4\x08\3\0\0\0\13\1\0\0\4\0\0\0\0\0\0\0\0...",
    ext/Storable/t/file_magic.t: "pst0\4\5\x041234\4\4\4\x08\3\13\0\0\0\4\3\0\0\0\0\n\0\0\0em...",
    ext/Storable/t/file_magic.t: "pst0\4\6\x041234\4\4\4\x08\3\13\0\0\0\4\3\0\0\0\0\n\0\0\0em...",
    ext/Storable/t/file_magic.t: "pst0\4\6\x044321\4\4\4\x08\3\0\0\0\13\4\3\0\0\0\0\0\0\0\nem...",
    ext/Storable/t/file_magic.t: "pst0\4\6\x044321\4\4\4\x08\3\0\0\0\13\n\n4294967296...",
    ext/Storable/t/file_magic.t: "pst0\4\6\x0812345678\4\4\4\x08\3\13\0\0\0\4\3\0\0\0\0\n\0...",
    ext/Storable/t/file_magic.t: "pst0\4\6\x0887654321\4\x08\x08\x08\3\0\0\0\13\4\3\0\0\0\0\0\0...",
    ext/Storable/t/file_magic.t: "pst0\4\x07\x041234\4\4\4\x08\3\13\0\0\0\4\3\0\0\0\0\n\0\0\0em...",
    ext/Storable/t/file_magic.t: "pst0\4\x07\x0812345678\4\x08\x08\x08\3\13\0\0\0\4\3\0\0\0\0\n\0...",
    ext/Storable/t/file_magic.t: "pst0\5\0\3\0\0\0\13\1\0\0\4\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0...",
    ext/Storable/t/file_magic.t: "pst0\5\3\3\0\0\0\13\1\0\0\4\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0...",
    ext/Storable/t/file_magic.t: "pst0\5\4\3\0\0\0\13\1\0\0\4\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0...",
    ext/Storable/t/file_magic.t: "pst0\5\5\3\0\0\0\13\4\3\0\0\0\0\0\0\0\nempty_hash\n...",
    ext/Storable/t/file_magic.t: "pst0\5\6\3\0\0\0\13\4\3\0\0\0\0\0\0\0\nempty_hash\n...",
    ext/Storable/t/file_magic.t: "pst0\5\6\3\0\0\0\13\n\n4294967296\0\0\0\bfour_...",
    ext/Storable/t/file_magic.t: "pst0\5\x07\3\0\0\0\13\4\3\0\0\0\0\0\0\0\nempty_hash\n...",
    ext/Storable/t/malice.t:my $hash = store_and_retrieve("pst0\5\6\3\0\0\0\1\1\0\0\0\0\0\0\0\5empty");
    ext/Sys/Hostname/Hostname.pm: $host = "\0" x 65; ## preload scalar
    ext/Sys/Hostname/Hostname.pm: $host = "\0" x 65; ## preload scalar
    ext/Sys/Hostname/Hostname.pm: $host =~ tr/\0\r\n//d;
    ext/Sys/Hostname/Hostname.xs: *p = '\0';
    ext/Sys/Syslog/Syslog.pm: $buf = "<$sum>$timestamp $whoami: $message\0";
    ext/Sys/Syslog/win32/PerlLog_dll.uu:MB=O+4XG;RU.)(>\6B=K+4XDX[6Z)VLM3B5)I8VC;RU.)``````````!010``
    ext/Sys/Syslog/win32/Win32.pm: Strings     => "$buf\0", 
    ext/Sys/Syslog/win32/compile.pl: Strings     => "$buf\0", 
    ext/Text/Soundex/Soundex.pm: $code =~ s/(.)9\1/$1/gs;
    ext/Text/Soundex/Soundex.xs: *code_end = '\0';
    ext/Text/Soundex/Soundex.xs: *code_end = '\0';
    ext/Text/Soundex/Soundex.xs: char codepart_last = (c <= 0xFF) ? sv_soundex_table[c] : '\0';
    ext/Text/Soundex/Soundex.xs: codepart = (c <= 0xFF) ? sv_soundex_table[c] : '\0';
    ext/Text/Soundex/Soundex.xs: if (codepart != '\0')
    ext/Text/Soundex/Soundex.xs: if (codepart != '\0')
    ext/Text/Soundex/Soundex.xs: if (codepart_last != '\0')
    ext/Text/Soundex/Soundex.xs: if (codepart_last != '\0')
    ext/Text/Soundex/Soundex.xs: memset(&sv_soundex_table[0], '\0', sizeof(sv_soundex_table));
    ext/Time/Piece/Piece.xs: if ((len > 0 && len < sizeof(tmpbuf)) || (len == 0 && *fmt == '\0'))
    ext/Time/Piece/Piece.xs: if (*remainder != '\0') {
    ext/Time/Piece/Piece.xs: zonestr[cp - buf] = '\0';
    ext/Unicode/Normalize/Changes: - bug fix: \0-terminate in compose() in XS.
    ext/Unicode/Normalize/Normalize.xs: *dend = '\0';
    ext/Unicode/Normalize/Normalize.xs: *dend = '\0';
    ext/Unicode/Normalize/Normalize.xs: *dend = '\0';
    ext/Unicode/Normalize/Normalize.xs: *dend = '\0';
    ext/Unicode/Normalize/Normalize.xs: *tend = '\0';
    ext/Unicode/Normalize/Normalize.xs: *tend = '\0';
    ext/Unicode/Normalize/Normalize.xs: *uend = '\0';
    ext/Win32/Win32.xs: *SvEND(shortpath) = '\0';
    ext/Win32/Win32.xs: *filepart = '\0';
    ext/Win32/Win32.xs: char szGUID[50] = {'\0'};
    ext/Win32/Win32.xs: data[cb/sizeof(WCHAR)] = '\0';
    ext/Win32/Win32.xs: root[2] = '\0';
    ext/Win32/longpath.inc: *start = '\0';
    ext/Win32/longpath.inc: *tmpstart = '\0';
    ext/Win32/longpath.inc: *tmpstart = '\0';
    ext/Win32/longpath.inc: *tmpstart = '\0';
    ext/Win32API/File/File.pm: $buf =~ s/\012/\015\012/sg unless $self->_binmode();
    ext/Win32API/File/File.pm: @$ref= split( /\0/, $s );
    ext/Win32API/File/File.pm: return  split( /\0/, $s );
    ext/Win32API/File/File.pm:For each currently defined drive letter, a C<'\0'>-terminated string
    ext/Win32API/File/File.pm:concatenated into the string, most recent first, with an extra C<'\0'>
    ext/Win32API/File/File.pm:definitions.  The definitions are each C<'\0'>-terminate and are
    ext/Win32API/File/File.pm:extra terminating C<'\0'> is added.  This larger string is returned
    ext/Win32API/File/File.pm:might set C<$osBuffer> to the 9-character string, C<"A:\\\0C:\\\0\0">.
    ext/Win32API/File/File.xs: if(  '\0' == *sEnv  )
    ext/Win32API/File/t/file.t: ( $text= $dev ) =~ s/\0/\\0/g;
    ext/Win32API/File/t/file.t: ( $text= $dev ) =~ s/\0/\\0/g;
    ext/XS/APItest/APItest.xs: *new_p = '\0';
    ext/XS/APItest/APItest.xs: to copy the trailing \0  */
    ext/XS/APItest/t/hash.t: my $wibble = "\0";
    ext/XS/APItest/t/hash.t:foreach my $in ("", "N", "a\0b") {
    ext/re/re.pm: $colors =~ s/\0//g;

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About