Help for this page

Select Code to Download


  1. or download this
    rob@kathmandu:~$ perl -MO=Deparse -e 'die$;!~y//.-~/c.$;.([$^=~/./g]&~
    +$").$&.($;&{}).$/'
    die !($; =~ tr//.-~/c) . $; . ([$^ =~ /./g] & ~$") . $& . ($; & {}) . 
    +$/;
    -e syntax OK