Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    END{$_=(join$",@{[map{$%=$_;$_=&{$_{$_}};$%%2&&s%.%\u$&%;$_}($|..${$/=
    +\
    ...
    ..++$?)))).&{$_{$,/($^A-$|)}}.chr(2*$=-$^A*$,-$|))[$,+$|,$|,$--$|
    ,+-+$|,-$|x$?,+$=/(0+$,*+$*+-+-$*),$,+-+-~~$*+-+-$|]]}});
    __END__
    
  2. or download this
    #!/usr/bin/perl
    END {
    ...
        }
    );
    __END__