#A hierarchy of six classes is used: "|", "/\", "[]", "{}", 
#"()", and "<>". When two smushing sub-characters are from 
#different classes, the one from the latter class will be used.

    s%(?:\||([/\\])|([[]])|([{}])|([()])|([<>]))\000
      (?:\||([/\\])|([[]])|([{}])|([()])|([<>]))%
      $5||$10 || $4||$9 || $3||$8 || $2||$7 || $1||$6%egx

=>

s{  [|/\\\[\]{}()<>]\0(?:=[<>])
      | [|/\\\[\]{}()]  \0(?:=[()])
      | [|/\\\[\]{}]    \0(?:=[{}])
      | [|/\\\[\]]      \0(?:=[\[\]])
      | [|/\\]          \0(?=[/\\])
      | [|]             \0(?=[|])
      | (?<=[<>])       \0[|/\\\[\]{}()]
      | (?<=[()])       \0[|/\\\[\]{}]
      | (?<=[{}])       \0[(|/\\\[\]]
      | (?<=[[]])       \0[|/\\\[]
      | (?<=[/\\])      \0[|]
    }
    {}gx

##</code><code>##

reverse LIST

     print reverse <>;           # line tac, last line first

     undef $/;                   # for efficiency of <>
     print scalar reverse <>;    # character tac, last line tsrif

In list context, returns a list value consisting of the
elements of LIST in the opposite order.

In scalar context, concatenates the elements of LIST and 
returns a string value with all characters in the opposite 
order. Used without an argument, reverse() reverses $_.

This operator is also handy for inverting a hash, although
there are some caveats.  If a value is duplicated in the 
original hash, only one of those can be represented as a 
key in the inverted hash.  Also, this has to unwind one 
hash and build a whole new one, which may take some time
on a large hash, such as from a DBM file.

      %by_name = reverse %by_address;     # Invert the hash

##</code><code>##

                                     THE                      W. J. Youden
                                    NORMAL
                                 LAW OF ERROR
                              STANDS OUT IN THE
                            EXPERIENCE OF MANKIND
                            AS ONE OF THE BROADEST
                          GENERALIZATIONS OF NATURAL
                        PHILOSOPHY * IT SERVES AS THE
                       GUIDING INSTRUMENT IN RESEARCHES
                   IN THE PHYSICAL AND SOCIAL SCIENCES AND
                  IN MEDICINE AGRICULTURE AND ENGINEERING *
            IT IS AN INDENSPENSIBLE TOOL FOR THE ANALYSIS AND THE
   INTERPRETATION OF THE BASIC DATA OBTAINED BY OBSERVATION AND EXPERIMENT


##</code><code>##

#use Test::Without::Module 'Mail::Mailer';

use Mail::Mailer;
if( $INC{'Mail/Mailer.pm'} ){
  warn("joy\n");
}
else{
  #No email alerts
  warn ("death\n");
}

__END__
$VERSION = 0.06;

$ perl -MTest::Without::Module=Mail::Mailer mod23.pl
Mail/Mailer.pm did not return a true value at mod23.pl line 3.
BEGIN failed--compilation aborted at mod23.pl line 3.

##</code><code>##

Error:  Can't locate Net/IP.pm in @INC (@INC contains: /opt/src/CPAN/build/Net-DNS-0.55/blib/lib/5.8.5/i386-linux-thread-multi /opt/src/CPAN/build/Net-DNS-0.55/blib/lib/5.8.5 /opt/src/CPAN/build/Net-DNS-0.55/blib/lib/i386-linux-thread-multi /opt/src/CPAN/build/Net-DNS-0.55/blib/lib/5.8.4 /opt/src/CPAN/build/Net-DNS-0.55/blib/lib/5.8.3 /opt/src/CPAN/build/Net-DNS-0.55/blib/lib/5.8.2 /opt/src/CPAN/build/Net-DNS-0.55/blib/lib/5.8.1 /opt/src/CPAN/build/Net-DNS-0.55/blib/lib/5.8.0 /opt/src/CPAN/build/Net-DNS-0.55/blib/lib /opt/src/CPAN/build/Net-DNS-0.55/blib/arch/5.8.5/i386-linux-thread-multi /opt/src/CPAN/build/Net-DNS-0.55/blib/arch/5.8.5 /opt/src/CPAN/build/Net-DNS-0.55/blib/arch/i386-linux-thread-multi /opt/src/CPAN/build/Net-DNS-0.55/blib/arch/5.8.4 /opt/src/CPAN/build/Net-DNS-0.55/blib/arch/5.8.3 /opt/src/CPAN/build/Net-DNS-0.55/blib/arch/5.8.2 /opt/src/CPAN/build/Net-DNS-0.55/blib/arch/5.8.1 /opt/src/CPAN/build/Net-DNS-0.55/blib/arch/5.8.0 /opt/src/CPAN/build/Net-DNS-0.55/blib/arch /usr/lib/perl5/5.8.5/i386-linux-thread-multi/5.8.5/i386-linux-thread-multi /usr/lib/perl5/5.8.5/i386-linux-thread-multi/5.8.5 /usr/lib/perl5/5.8.5/i386-linux-thread-multi/i386-linux-thread-multi /usr/lib/perl5/5.8.5/i386-linux-thread-multi/5.8.4 /usr/lib/perl5/5.8.5/i386-linux-thread-multi/5.8.3 /usr/lib/perl5/5.8.5/i386-linux-thread-multi/5.8.2 /usr/lib/perl5/5.8.5/i386-linux-thread-multi/5.8.1 /usr/lib/perl5/5.8.5/i386-linux-thread-multi/5.8.0 /usr/lib/perl5/5.8.5/i386-linux-thread-multi /usr/lib/perl5/5.8.5/5.8.5/i386-linux-thread-multi /usr/lib/perl5/5.8.5/5.8.5 /usr/lib/perl5/5.8.5/i386-linux-thread-multi /usr/lib/perl5/5.8.5/5.8.4 /usr/lib/perl5/5.8.5/5.8.3 /usr/lib/perl5/5.8.5/5.8.2 /usr/lib/perl5/5.8.5/5.8.1 /usr/lib/perl5/5.8.5/5.8.0 /usr/lib/perl5/5.8.5 /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/5.8.5 /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/5.8.4 /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/5.8.3 /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/5.8.2 /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/5.8.1 /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/5.8.0 /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi/5.8.5 /usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi/5.8.4 /usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi/5.8.3 /usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi/5.8.2 /usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi/5.8.1 /usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi/5.8.0 /usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi/5.8.5 /usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi/5.8.4 /usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi/5.8.3 /usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi/5.8.2 /usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi/5.8.1 /usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi/5.8.0 /usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi/5.8.5 /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi/5.8.4 /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi/5.8.3 /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi/5.8.2 /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi/5.8.1 /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi/5.8.0 /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi/5.8.5 /usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi/5.8.4 /usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi/5.8.3 /usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi/5.8.2 /usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi/5.8.1 /usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi/5.8.0 /usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi/5.8.5 /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi/5.8.4 /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi/5.8.3 /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi/5.8.2 /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi/5.8.1 /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi/5.8.0 /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5/5.8.5 /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5/5.8.4 /usr/lib/perl5/site_perl/5.8.5/5.8.3 /usr/lib/perl5/site_perl/5.8.5/5.8.2 /usr/lib/perl5/site_perl/5.8.5/5.8.1 /usr/lib/perl5/site_perl/5.8.5/5.8.0 /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl/5.8.4/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.4/5.8.5 /usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.4/5.8.4 /usr/lib/perl5/site_perl/5.8.4/5.8.3 /usr/lib/perl5/site_perl/5.8.4/5.8.2 /usr/lib/perl5/site_perl/5.8.4/5.8.1 /usr/lib/perl5/site_perl/5.8.4/5.8.0 /usr/lib/perl5/site_perl/5.8.4 /usr/lib/perl5/site_perl/5.8.3/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.3/5.8.5 /usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.3/5.8.4 /usr/lib/perl5/site_perl/5.8.3/5.8.3 /usr/lib/perl5/site_perl/5.8.3/5.8.2 /usr/lib/perl5/site_perl/5.8.3/5.8.1 /usr/lib/perl5/site_perl/5.8.3/5.8.0 /usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/site_perl/5.8.2/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.2/5.8.5 /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.2/5.8.4 /usr/lib/perl5/site_perl/5.8.2/5.8.3 /usr/lib/perl5/site_perl/5.8.2/5.8.2 /usr/lib/perl5/site_perl/5.8.2/5.8.1 /usr/lib/perl5/site_perl/5.8.2/5.8.0 /usr/lib/perl5/site_perl/5.8.2 /usr/lib/perl5/site_perl/5.8.1/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.1/5.8.5 /usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.1/5.8.4 /usr/lib/perl5/site_perl/5.8.1/5.8.3 /usr/lib/perl5/site_perl/5.8.1/5.8.2 /usr/lib/perl5/site_perl/5.8.1/5.8.1 /usr/lib/perl5/site_perl/5.8.1/5.8.0 /usr/lib/perl5/site_perl/5.8.1 /usr/lib/perl5/site_perl/5.8.0/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.0/5.8.5 /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.0/5.8.4 /usr/lib/perl5/site_perl/5.8.0/5.8.3 /usr/lib/perl5/site_perl/5.8.0/5.8.2 /usr/lib/perl5/site_perl/5.8.0/5.8.1 /usr/lib/perl5/site_perl/5.8.0/5.8.0 /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.4 /usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/site_perl/5.8.2 /usr/lib/perl5/site_perl/5.8.1 /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi/5.8.5 /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi/5.8.4 /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi/5.8.3 /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi/5.8.2 /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi/5.8.1 /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi/5.8.0 /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi/5.8.5 /usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi/5.8.4 /usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi/5.8.3 /usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi/5.8.2 /usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi/5.8.1 /usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi/5.8.0 /usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi/5.8.5 /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi/5.8.4 /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi/5.8.3 /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi/5.8.2 /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi/5.8.1 /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi/5.8.0 /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi/5.8.5 /usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi/5.8.4 /usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi/5.8.3 /usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi/5.8.2 /usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi/5.8.1 /usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi/5.8.0 /usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi/5.8.5 /usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi/5.8.4 /usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi/5.8.3 /usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi/5.8.2 /usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi/5.8.1 /usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi/5.8.0 /usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi/5.8.5 /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi/5.8.4 /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi/5.8.3 /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi/5.8.2 /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi/5.8.1 /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi/5.8.0 /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.5/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.5/5.8.5 /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.5/5.8.4 /usr/lib/perl5/vendor_perl/5.8.5/5.8.3 /usr/lib/perl5/vendor_perl/5.8.5/5.8.2 /usr/lib/perl5/vendor_perl/5.8.5/5.8.1 /usr/lib/perl5/vendor_perl/5.8.5/5.8.0 /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl/5.8.4/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.4/5.8.5 /usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.4/5.8.4 /usr/lib/perl5/vendor_perl/5.8.4/5.8.3 /usr/lib/perl5/vendor_perl/5.8.4/5.8.2 /usr/lib/perl5/vendor_perl/5.8.4/5.8.1 /usr/lib/perl5/vendor_perl/5.8.4/5.8.0 /usr/lib/perl5/vendor_perl/5.8.4 /usr/lib/perl5/vendor_perl/5.8.3/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.3/5.8.5 /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.3/5.8.4 /usr/lib/perl5/vendor_perl/5.8.3/5.8.3 /usr/lib/perl5/vendor_perl/5.8.3/5.8.2 /usr/lib/perl5/vendor_perl/5.8.3/5.8.1 /usr/lib/perl5/vendor_perl/5.8.3/5.8.0 /usr/lib/perl5/vendor_perl/5.8.3 /usr/lib/perl5/vendor_perl/5.8.2/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.2/5.8.5 /usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.2/5.8.4 /usr/lib/perl5/vendor_perl/5.8.2/5.8.3 /usr/lib/perl5/vendor_perl/5.8.2/5.8.2 /usr/lib/perl5/vendor_perl/5.8.2/5.8.1 /usr/lib/perl5/vendor_perl/5.8.2/5.8.0 /usr/lib/perl5/vendor_perl/5.8.2 /usr/lib/perl5/vendor_perl/5.8.1/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.1/5.8.5 /usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.1/5.8.4 /usr/lib/perl5/vendor_perl/5.8.1/5.8.3 /usr/lib/perl5/vendor_perl/5.8.1/5.8.2 /usr/lib/perl5/vendor_perl/5.8.1/5.8.1 /usr/lib/perl5/vendor_perl/5.8.1/5.8.0 /usr/lib/perl5/vendor_perl/5.8.1 /usr/lib/perl5/vendor_perl/5.8.0/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.0/5.8.5 /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.0/5.8.4 /usr/lib/perl5/vendor_perl/5.8.0/5.8.3 /usr/lib/perl5/vendor_perl/5.8.0/5.8.2 /usr/lib/perl5/vendor_perl/5.8.0/5.8.1 /usr/lib/perl5/vendor_perl/5.8.0/5.8.0 /usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.4 /usr/lib/perl5/vendor_perl/5.8.3 /usr/lib/perl5/vendor_perl/5.8.2 /usr/lib/perl5/vendor_perl/5.8.1 /usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl ./5.8.5/i386-linux-thread-multi ./5.8.5 ./i386-linux-thread-multi ./5.8.4 ./5.8.3 ./5.8.2 ./5.8.1 ./5.8.0 . /usr/lib/perl5/5.8.5/i386-linux-thread-multi /usr/lib/perl5/5.8.5 /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl/5.8.4 /usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/site_perl/5.8.2 /usr/lib/perl5/site_perl/5.8.1 /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl/5.8.4 /usr/lib/perl5/vendor_perl/5.8.3 /usr/lib/perl5/vendor_perl/5.8.2 /usr/lib/perl5/vendor_perl/5.8.1 /usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl .) at /opt/src/CPAN/build/Net-DNS-0.55/blib/lib/Net/DNS/Resolver/Base.pm line 24.

##</code><code>##

Params::Validate::validate calls
$VAR1 = {
          'DateTime::truncate' => 1886,
          'DateTime::Span::from_datetimes' => 54,
          'DateTime::from_epoch' => 1,
          'DateTime::add_duration' => 2018,
          'DateTime::Format::Strptime::new' => 1,
          'DateTime::TimeZone::new' => 1968,
          'DateTime::Locale::registered_id' => 7,
          'DateTime::Locale::_register' => 299,
          'DateTime::from_object' => 1964,
          'DateTime::new' => 4067,
          'DateTime::Duration::new' => 2325
        };

##</code><code>##

for my $i (43, 47..57, 61, 65..90, 97..122){
    my $x = rand()*26;
    my $y = rand()*26;
    unless( $F[$x]->[$y] ){
        $F{chr($i)} = chr(65+$x).chr(65+$y);
        $F[$x]->[$y] = chr($i); }
        else{
            print "Redoing $i(", chr($i), ")\n";
            redo; }
}
#use Data::Dumper;
#print Data::Dumper->Dump([\%F]);

while(<>){
    $_ = uc($_);
    push @G, map($F{$_}, split('', $_));
}
for(my $i=0;$i<26;$i++){

##</code><code>##

#!/usr/bin/perl -w -l -n -a -F <-
BEGIN{
  use strict;
  use vars qw'@F %H';
  use CGI::Minimal;
  use List::Util 'sum';
}
chomp(@F);
if( index($F[0], '%3A') > 0 ){
  ${' '. CGI::Minimal->url_decode((split(/\?/, $F[0]))[1])}++;
}
else{
  $H{$F[1]}++ if $F[1] ne ' -' && $F[1] ne ' [unknown origin]';
}
END{
  my @bad = qw(search google yahoo);
  foreach my $URI ( sort { $a cmp $b } keys %H ){
    next if sum(map(index($URI, $_), @bad)) != -scalar @bad;

    print $URI, ': ', $H{$URI};
  }
}

##</code><code>##

$ perl -wle "open(FOO, '-|') || exec 'perl someprog';  print <FOO>"
%DCL-W-IVVERB, unrecognized command verb - check validity and spelling \$\
%DCL-W-IVVERB, unrecognized command verb - check validity and spelling \$\

but the very new three arg version does.

$ perl -wle "open(FOO, '-|', 'perl bug');  print <FOO>"
2

I suspect it's a PerlIO thing.

$ perl -v

This is perl, v5.7.2 built for VMS_AXP