Help for this page

Select Code to Download


  1. or download this
    print "$f-", substr ($s => length +(("$f" ^ "$s") =~ /^(\x00*)/) [0]),
+ "\n";