Help for this page

Select Code to Download


  1. or download this
    applebananapearcarrotcarrotbeardeerdeer
goatcowduckswanchickenmouseratbirdmouse
chocolatedogdogfishmousecatdeerbird
newyorkcalifornianewjerseymousecatdeerbird
  2. or download this
    monksbicyclewindbikecars
computercomputerprinters
...
.
.
goes on for another 600,000 lines
  3. or download this
    #!/usr/bin/perl -w
use strict;
...
    print $str1 if substr( $str1, 0, 24) eq ($str2); 
    next ($str2);
    }