Help for this page

Select Code to Download


  1. or download this
    warn"JustANoTHe' PERL-hick,\012";
  2. or download this
    local( $/ );
$f{$_}++ for <> =~ /./gs;
...
        if  1 != $f{$_};
    print $_;
}
  3. or download this
    print aADEFHIGJLKBObVQPSRXUTCW^q[+471f)'(>$.0o23#<s:96?&%]